For ii = 1 To a
          If b(ii, 1) = d(i, 1) Then
          If b(ii, 2) = d(i, 2) Then e(i, 1) = b(ii, 4): Exit For
          End If
      Next

Sub Категория_товара3()
     Dim tm!: tm = Timer
     Dim t$

     With Worksheets("Группа погрузки")
         a = .Cells(.Rows.Count, 2).End(xlUp).Row
         b = .Range("B1", "E" & a)
     End With
     With Worksheets("Исходные данные")
         c = .Cells(.Rows.Count, 3).End(xlUp).Row
         d = .Range("C1", "D" & c)
         e = .Range("M1", "M" & c)
     End With

     With CreateObject("scripting.dictionary"): .comparemode = 1
         For i = 1 To a
             .Item(b(i, 1) & "|" & b(i, 2)) = b(i, 4)
         Next
         For i = 1 To c
             t = d(i, 1) & "|" & d(i, 2)
             If .exists(t) Then e(i, 1) = .Item(t)
         Next
     End With

     Range("M1", "M" & c) = e

     Debug.Print "код3=" & Timer - tm
End Sub

Sub Категория_товара2()
t = Timer
Application.ScreenUpdating = False
Set dic = CreateObject("Scripting.Dictionary")

a = Worksheets("Группа погрузки").Cells(Rows.Count, 2).End(xlUp).Row
b = Worksheets("Группа погрузки").Range("B1", "E" & a)

c = Worksheets("Исходные данные").Cells(Rows.Count, 3).End(xlUp).Row
d = Worksheets("Исходные данные").Range("C1", "D" & c)
e = Worksheets("Исходные данные").Range("M1", "M" & c)

For ii = 1 To a
      dic.Item(b(ii, 1) & "|" & b(ii, 2)) = b(ii, 4)
Next
For i = 1 To c
      If dic.exists(d(i, 1) & "|" & d(i, 2)) Then e(i, 1) = dic.Item(d(i, 1) & "|" & d(i, 2)) Else e(i, 1) = Empty
Next
Range("M1", "M" & c) = e

Application.ScreenUpdating = True
Debug.Print Timer - t
End Sub

Sub Категория_товара()
     Dim a&, b(), c&, d(), e(), f As Range, i&
      
     With Worksheets("Группа погрузки")
         a = .Cells(.Rows.Count, 2).End(xlUp).Row
         b = .Range("B2:E" & a).Value
     End With
     With Worksheets("Исходные данные")
         c = .Cells(.Rows.Count, 3).End(xlUp).Row
         d = .Range("C4:D" & c).Value
         Set f = .Range("M4:M" & c)
         e = f
     End With
      
     With CreateObject("Scripting.Dictionary")
         For i = 1 To a - 1
             .Item(b(i, 1) & "|" & b(i, 2)) = b(i, 4)
         Next
         For i = 1 To c - 3
             e(i, 1) = .Item(d(i, 1) & "|" & d(i, 2))
         Next
     End With
     f = e
End Sub

        Set f = .Range("M4:M" & c)
         e = f