Option Explicit
'Kuzmich октябрь 2016 г
'http://www.planetaexcel.ru/forum/index.php?PAGE_NAME=read&FID=1&TID=83725

Dim i As Integer
Dim iLastNew As Integer

Sub Кнопка14_Щелкнуть()
Dim FoundSupplier As Range
Dim FoundMagazin As Range
Dim iLastRow As Integer
Dim FAdr As String
Dim FAdrMagaz As String
Dim flag As Boolean
Application.ScreenUpdating = False
  With Worksheets("Page1")
    Set FoundSupplier = .Columns("L:M").Find("Поставщик", , xlValues, xlWhole)
     If Not FoundSupplier Is Nothing Then
        FAdr = FoundSupplier.Address
      Do
          iLastRow = .Cells(FoundSupplier.Row + 2, 12).End(xlDown).Row
        For i = FoundSupplier.Row + 2 To iLastRow
          Set FoundMagazin = Columns("E").Find(.Cells(i, 12), , xlValues, xlWhole)
          If Not FoundMagazin Is Nothing Then
           FAdrMagaz = FoundMagazin.Address
             flag = False
           Do
               iLastNew = Range("A1").End(xlDown).Row + 1
             If .Cells(i, 5) = Cells(FoundMagazin.Row, 2) And _
                .Cells(i, 10) = Cells(FoundMagazin.Row, 3) And _
                .Cells(i, 16) = Cells(FoundMagazin.Row, 7) Then
                flag = True      'есть на листе NEWСверка такая накладная
             End If
            Set FoundMagazin = Columns("E").FindNext(FoundMagazin)
           Loop While FoundMagazin.Address <> FAdrMagaz
             If Not flag Then
               Call iInsertRow
             End If
          Else     'новый поставщик, которого нет на листе NEWСверка
               iLastNew = Range("A1").End(xlDown).Row + 1
               Call iInsertRow
          End If
        Next
         Set FoundSupplier = .Columns("L:M").Find("Поставщик", FoundSupplier)
      Loop While FoundSupplier.Address <> FAdr
     End If
  End With
Application.ScreenUpdating = True
End Sub

Sub iInsertRow()
     Rows(iLastNew).Insert
  With Worksheets("Page1")
       Cells(iLastNew, 1) = .Range("C" & i)        'тип
       Cells(iLastNew, 2) = .Range("E" & i)        'номер
       Cells(iLastNew, 3) = .Range("J" & i)        'дата
       Cells(iLastNew, 4) = .Range("K" & i)        'валюта
       Cells(iLastNew, 5) = .Range("L" & i)        'поставщик
       Cells(iLastNew, 7) = .Range("P" & i)        'сумма б/н
       Cells(iLastNew, 7).NumberFormat = "#,##0.00"
  End With
End Sub