Sub okras()
Dim art() As String
Dim i As Long, j As Long
Dim Ish1 As Range
Dim art1 As Range
Set Ish1 = Application.InputBox("Выделите любую ячейку столбца, в котором нужно выделить", _
"Столбец товара", Type:=8)
Set art1 = Application.InputBox("Выделите любую ячейку искомых артикулов", _
"Столбец артикулов", Type:=8)
i_n = Worksheets(Ish1.Parent.Name).Cells(Rows.Count, Ish1.Column).End(xlUp).Row
j_n = Worksheets(art1.Parent.Name).Cells(Rows.Count, art1.Column).End(xlUp).Row
ReDim art(j_n)
For j = 1 To j_n
   art(j) = Worksheets(art1.Parent.Name).Cells(j, art1.Column)
Next j
For j = 1 To j_n
   For i = 1 To i_n
     If Worksheets(Ish1.Parent.Name).Cells(i, Ish1.Column) = art(j) Then
        Worksheets(Ish1.Parent.Name).Cells(i, Ish1.Column).Interior.Color = 65535
     End If
   Next i
Next j
End Sub

Sub okras2()
Dim art() As String
Dim i As Long, j As Long
i_n = Cells(Rows.Count, 1).End(xlUp).Row
j_n = Cells(Rows.Count, 2).End(xlUp).Row
ReDim art(j_n)
For j = 1 To j_n
   art(j) = Cells(j, 2)
Next j
For j = 1 To j_n
   For i = 1 To i_n
    If art(j) <> "" Then
     If Cells(i, 1) = art(j) Then
        Cells(i, 1).Interior.Color = 65535
     End If
    End If
   Next i
Next j
End Sub

=ИЛИ(A2=$B$2:$B$4)

=--ИЛИ(A2=$C$2:$C$4)