Option Explicit

Sub rabota_dlja_gostja()
     Dim r As Range, rr As Range, c As Range, cc As Range
     Dim tab1 As Object
     Set r = [a1].CurrentRegion
     Set r = r.Offset(2, 0).Resize(r.Rows.Count - 2, r.Columns.Count)    'сдвиг выбора таблицы на  строки ниже и низ затем на 2 строки выше

     Set tab1 = GetObject("c:\Temp\gost\Таблица 1.xls")
     Set rr = tab1.Sheets(1).[a1].CurrentRegion
     Set rr = rr.Offset(5, 0).Resize(rr.Rows.Count - 5, rr.Columns.Count)    'сдвиг выбора таблицы на  строки ниже и низ затем на 5 строки выше
     For Each c In r.Columns(2).Cells
         For Each cc In rr.Columns(2).Cells
             If c.Value = cc.Value Then
                 If c.Offset(, 4).Value <> cc.Offset(, 15).Value Then
                     c.Offset(, 2).Value = cc.Offset(, 11).Value    'M=C
                     c.Offset(, 3).Value = cc.Offset(, 12).Value    'N=D
                     c.Offset(, 5).Value = cc.Offset(, 15).Value    'Q=F
                     c.Offset(, 6).Value = cc.Offset(, 16).Value    'R=G
                 End If
             End If
         Next
     Next
     tab1.Close 0
End Sub