Добавление vlookup в диапазон, где массив находится на другом листе

Question

Я должен добавить кучу писем к первому пустому столбцу на моем листе под названием «Сводка проекта» (есть строка заголовка).Эти письма приходят с другого листа, который называется «Сотрудники».Я не хочу, чтобы значение ячейки на рабочем листе Project Summary было функцией, поэтому я не могу просто ввести VLOOKUP.Я хочу, чтобы результат в столбце «Электронная почта» был просто адресом электронной почты.Адреса электронной почты указаны на рабочем листе сотрудника в столбце B, а имя руководителя проекта - в столбце A.

Итак, на рабочем листе сводки проекта мне нужно указать имя руководителя проекта (это заголовок, который именуетперечислены в разделе), затем найдите соответствующий адрес электронной почты на листе «Сотрудники» и введите его в первый пустой столбец.

Я нашел этот код в Интернете и немного его изменил, но, думаю, он добавит VLOOKUP вколонка, которая мне не нужна.Этот код не работает.Он разбивается на строку Set myLookupValue.

Range("A1").End(xlToRight).Offset(0, 1).Select
       Selection.Value = "Email"
       ActiveCell.Offset(1, 0).Select

       Dim myLookupValue As Range
       Dim myColumnIndex As Long
       Dim myTableArray As Range

       Set myLookupValue = Range(Cells(ActiveCell, "A"))
       myColumnIndex = 2

    With Worksheets("Employees")
        Set myTableArray = .Range(.Cells(1, 1), .Cells(.Rows.Count, 2).End(xlUp))
    End With

    Do While ActiveCell = ""
        ActiveCell.Formula = WorksheetFunction.VLookup(myLookupValue, myTableArray, myColumnIndex, False)
        ActiveCell.Offset(1, 0).Select
    Loop

В заключение: я хочу добавить адрес электронной почты Имя руководителя проекта в первый пустой столбец, и адреса электронной почты будут сохранены на листе с именем «Сотрудники».