Sub ertert()
Dim x, y, i&, j&, k
x = Range("A3:C" & Cells(Rows.Count, 1).End(xlUp).Row).Value
With CreateObject("Scripting.Dictionary")
     .CompareMode = 1
     For i = 1 To UBound(x)    'Старый прайс
         .Item(x(i, 1)) = i
     Next i

     With Range("H3:J" & Cells(Rows.Count, 9).End(xlUp).Row)
         y = .Value
         .Interior.Color = xlNone
     End With
     For i = 1 To UBound(y)
         If .Exists(y(i, 1)) Then
             j = .Item(y(i, 1))
             ' который сверял бы артикулы и заменял на совпадающих артикулах цену и остаток
             x(j, 2) = y(i, 2): x(j, 3) = y(i, 3)
             .Remove y(i, 1)
         Else
             ' а если в обновленном прайсе появились новые позиции, по сравнению со старым, выделял бы их зеленым
             Cells(i + 2, 8).Resize(, 3).Interior.Color = vbGreen
         End If
     Next i
     For Each k In .keys
         ' а на отсутствующих артикулах в старом прайсе ставил бы остаток 0
         x(.Item(k), 2) = 0
     Next
End With
Range("A3:C3").Resize(UBound(x)).Value = x
End Sub