Code:
ActiveWorkbook.Sheets("Memory").Range(cell.Address).Value = cell.Value
Does the above work?