Помогите справиться с задачей

[hunter05]

Подскажите пожалуйста как реализовать следующую задачу:
Есть два xls файла A и B. Нужно чтоб значения столбца Е файла А были найдены в столбце А файла В. И если такие значения найдены то нужно значение столбца В файла А скопировать в ячейку Н файла В и выделить красным цветом.Для наглядности отправляю файлы А и В.

[hunter05]

вот эти файлы

[doober]

Путь к файлу А ,лист укажете в макросе

[hunter05]

Не могу скачать архив B.rar просит лигин и пароль тот под которым зашел не принимает.

[doober]

Sub Поиск()

Dim d As Worksheet
Dim rb, re As Range
 Application.ScreenUpdating = False
Dim path As String
path = "c:\А.xls"  'Введите свой путь к файлу
Set d = GetObject(path).Sheets(1) 'Здесь задан первый лист

Dim count, adr As Long
Dim ge, be



count = d.Range("e" & Rows.count).End(xlUp).Row

    Set re = d.Range("e1:e" & count)
     Set rb = d.Range("b1:b" & count)
   
    Dim i As Long, P As Range
    For i = 1 To count
    
    ge = re(i, 1)
    be = rb(i, 1)
    
        Set P = [A:A].Find(ge)
        If Not P Is Nothing Then
        
        adr = P.Row
     Range("h" & adr) = be
        
         Range("h" & adr).Interior.ColorIndex = 6
          Range("h" & adr).Font.ColorIndex = 3
         
        End If
    Next
   
  d.Parent.Close (False)
   
    Application.ScreenUpdating = True
   
   
End Sub