[okshef]

Вставьте модуль с таким кодом:

Код:

Sub findnew()
10        On Error GoTo LogError
20            For Each c In Worksheets(2).Columns(2).Cells
30                If Worksheets(1).[b:b].Find(c.Value) Is Nothing Then
40                    Worksheets(2).Range("a" & c.Row).Copy Worksheets(3).Range("a" & Worksheets(3).Cells.Rows.Count).End(xlUp)(2)
50                    Worksheets(2).Range("c" & c.Row).Copy Worksheets(3).Range("b" & Worksheets(3).Cells.Rows.Count).End(xlUp)(2)
60                End If
70                If IsEmpty(c) Then Exit For
80            Next
90        Worksheets(3).UsedRange.RemoveDuplicates Columns:=Array(1, 2), Header:=xlYes
100   Exit Sub
LogError:
110       ErrorMsg = Now & " " & _
          "Error " & Err.Number & " (" & Err.Description & _
          ") in procedure findnew строка " & Erl
120       MsgBox ErrorMsg
130       With ThisWorkbook
140           Shell "cmd /c echo " & ErrorMsg & ">>""" & .Path & "\" & .Name & ".log"""
150       End With
160       Resume Next
End Sub

В папке с файлом образуется лог работы - приложите его к сообщению