.
Try this change to the copy macro :
Sub cpyToComplete() Application.ScreenUpdating = False Dim CopySheet As Worksheet Dim PasteSheet As Worksheet Set CopySheet = Worksheets("FXF CALL IN LOG") Set PasteSheet = Worksheets("Complete") PasteSheet.Cells(Rows.Count, 1).End(xlUp).Offset(2, 0).Value = Sheets("FXF CALL IN LOG").Range("J1").Value CopySheet.Range("A2:I7").Copy PasteSheet.Cells(Rows.Count, 1).End(xlUp).Offset(1, 0).PasteSpecial xlPasteValues Application.CutCopyMode = False Application.ScreenUpdating = True End Sub





Reply With Quote