Заполнить колонки взависимости от значения в столбце А, таблица соответствия - VBA

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

Всем доброго времени суток! Подскажите пожалуйста как реализовать такую задачу: на листе База указаны сотрудники и к какому отделу они относятся и код отдела. задача состоит в том чтоб при загрузке списка сотрудников в столбец А на лист Общийотчет автоматом подтягивалось значение отдела и код отдела(см пример) на листе пример указала зеленым то что загружается желтым то что должно автоматом подтянуться. Подскажите как это реализовать извините что без собственных наработок но в этой части эксель - я вообще 0 если это можно реализовать макросом : загрузить фамилии сотрудников в столбец А , нажать кнопку и отдел и код отдела подтянуться автоматом - то вообще чудо будет ))) Заранее огромное спасибо!

Решение задачи: «Заполнить колонки взависимости от значения в столбце А, таблица соответствия»

textual
                            Листинг программы 
                        
Sub Заполнить()
 
With Sheets("ОбщийОтчет")
 
lastrow = .Cells(Rows.Count, 1).End(xlUp).Row
 
.Range("C2:C" & lastrow).Formula = "=VLOOKUP(RC[-2],пример!C[-2]:C,3,0)"
.Range("B2:B" & lastrow).Formula = "=VLOOKUP(RC[-1],пример!C[-1]:C[1],2,0)"
  
.Range("B2:C" & lastrow).Value = .Range("B2:C" & lastrow).Value
 
End With
 
End Sub