Hello Roxnoxsox,
Tell me. Have you been receiving notification of replies to your thread? Just wondering because I haven't been receiving them from this forum even though my settings are correctly set. So, I've just been checking in intermittently to see if anyone whom I've been trying to help still needs help.
Anyway, back to your request:-
Try the following instead (I've amended the code using your work book sample):-
Sub CopyStuff()
Application.ScreenUpdating = False
Dim lRow As Long
lRow = Range("C" & Rows.Count).End(xlUp).Row
For Each cell In Range("D2:D" & lRow, "F2:F" & lRow)
If cell.Value = "" Then
Range(Cells(cell.Row, "C"), Cells(cell.Row, "J")).Cut Sheet2.Range("C" & Rows.Count).End(xlUp).Offset(1)
End If
Next
Columns("D").SpecialCells(4).EntireRow.Delete
Sheet2.Range("C1:J" & Rows.Count).RemoveDuplicates Columns:=1, Header:=xlYes
Sheet2.Columns.AutoFit
Application.ScreenUpdating = True
Sheet2.Select
End Sub
I think it should do the task for you.
Cheerio,
vcoolio.