here is the problemWorksheets("1").Cells(i, 8).SelectSelection.CopyWorksheets("1").Cells(i, 8).SelectActiveSheet.PasteApplication.CutCopyMode = False