Sub Макрос1()
Dim i As Double
Dim n As Double
Set Baza = Workbooks("а.xlsx").Worksheets("Лист1") ' выбираем книгу 1 для удобства и понимания записанного макроса
Set Zakaz = Workbooks("б.xlsm").Worksheets("Лист1") ' выбираем книгу 2 для удобства и понимания записанного макроса
ilastrow1 = Zakaz.Cells(Rows.Count, 1).End(xlUp).Row 'определяем последнюю заполненную строку в книге 2
For i = 2 To ilastrow1 ' цикл прохода по значениям в заказе от 2 строки до последней (ее определили ранее)
    ilastrow2 = Baza.Cells(Rows.Count, 1).End(xlUp).Row 'определяем последнюю заполненную строку в книге 1
    For n = 3 To ilastrow2  ' цикл прохода по значениям в базе от 2 строки до последней для сравнения артикула и цвтеа с заказом
      If Baza.Cells(n, 3) = Zakaz.Cells(i, 3) _
      And _
     Baza.Cells(n, 4) = Zakaz.Cells(i, 4) Then ' если и цвет и артикул заказа совпали
      Baza.Cells(n, 6) = Zakaz.Cells(i, 5) ' копируем нужные из заказа колечество нужного товара в базу
      If Baza.Cells(n, 7) >= 0 Then 'затем проверяем в базе остаток в столбце G - что бы остаток был положительным
      Zakaz.Cells(i, 6) = Baza.Cells(n, 6) ' и если остаток положительный копируем ставит в лист заказ в столбец ответ кол-во того что можем взять из базы
      Else
      Baza.Cells(n, 6) = Baza.Cells(n, 5) ' если остаток меньше нуля тогда в книгу база ставим в заказ кол-во равное запасу
      Zakaz.Cells(i, 6) = Baza.Cells(n, 5) 'затем в книгу заказ кол-во равное запасу в ответ
      End If
      End If
    Next n
Next i
End Sub