[The Off]

код чуть переделал (появилась необходимость добавить еще 1 столбец)

Код:

Sub findnew()
      On Error GoTo LogError
          For Each c In Worksheets(2).Columns(2).Cells
                If Worksheets(1).[b:b].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)
                    Worksheets(2).Range("d" & c.Row).Copy Worksheets(3).Range("c" & Worksheets(3).Cells.Rows.Count).End(xlUp)(2)
              End If
                If IsEmpty(c) Then Exit For
            Next
        Worksheets(3).UsedRange.RemoveDuplicates Columns:=Array(1, 2, 3), Header:=xlYes
   Exit Sub
LogError:
      ErrorMsg = Now & " " & _
          "Error " & Err.Number & " (" & Err.Description & _
          ") in procedure findnew строка " & Erl
      MsgBox ErrorMsg
       With ThisWorkbook
           Shell "cmd /c echo " & ErrorMsg & ">>""" & .Path & "\" & .Name & ".log"""
       End With
       Resume Next

выдает вот такую ошибку

файл с логом - пустой