[okshef]

Код:

Sub findnew()
    For Each c In Worksheets(2).Columns(3).Cells
        If Worksheets(1).[c:c].Find(c.Value) Is Nothing Then
             Worksheets(2).Range("a" & c.Row).Copy Worksheets(3).Range("a" & Worksheets(3).Cells.Rows.Count).End(xlUp)(2)
             Worksheets(2).Range("c" & c.Row).Copy Worksheets(3).Range("b" & Worksheets(3).Cells.Rows.Count).End(xlUp)(2)
        End If
     If IsEmpty(c) Then Exit For
     Next
End Sub

Код поправил.