Solved: Copy row of sheet2 (if data does not match sheet1).

[mdmackillop]

[VBA]Sub DoCompare()
Dim cel As Range, tgt As Range
With Sheets("Sheet2")
For Each cel In Range(.Cells(1, 1), .Cells(Rows.Count, 1).End(xlUp))
If Sheets("Sheet1").Columns(1).Find(cel) Is Nothing Then
Set tgt = Sheets("Sheet3").Cells(Rows.Count, 1).End(xlUp).Offset(1)
If tgt.Row < 11 Then Set tgt = Sheets("Sheet3").Cells(11, 1)
cel.Resize(, 4).Copy tgt
End If
Next
End With
End Sub[/VBA]