Найти совпадающие значения и подставить данные из других столбцов - VBA

Формулировка задачи:

Добрый день. необходимо макросом найти совпадающие значения одной таблицы в другой и по этому совпадению подтянуть данные из других столбцов. Нашла на форуме похожий пример. Подскажите как этот вариант переписать если данные будут находится в разных книгах, но с такими же названиями листов моемом нужно подтянуть еще несколько значений: "address", "controler", в случае значение будет не найдено то оставлять пустым: Поиск значений одной таблицы в другой на vba. Sub tt() Dim tm!: tm = Timer Dim a(), b(), i& With Sheets("START") a = .Range(.[d2], .Cells(.Rows.Count, 4).End(xlUp)).Value b = .Range(.[f2], .Cells(.Rows.Count, 6).End(xlUp)).Value End With With CreateObject("scripting.dictionary"): .comparemode = 1 For i = 1 To UBound(a): .Item(a(i, 1)) = b(i, 1): Next Erase b With Sheets("1008") a = .Range(.[b2], .Cells(.Rows.Count, 2).End(xlUp)).Value End With For i = 1 To UBound(a) If .exists(a(i, 1)) Then a(i, 1) = .Item(a(i, 1)) Else a(i, 1) = "9999999999" Next End With Sheets("1008").[c2].Resize(UBound(a), 1) = a Debug.Print Timer - tm End Sub

Решение задачи: «Найти совпадающие значения и подставить данные из других столбцов»

textual
                            Листинг программы 
                        

                                With rr.Parent
        LastRow = .Cells(.Rows.Count, 8).End(xlUp).Row
        a = .Range(.[H2], .Cells(LastRow, 9)).Value
        b = .Range(.[P2], .Cells(LastRow, 17)).Value
    End With
                        