ВПР через VBA (не FUNCTION!)

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

Всем доброго дня.
Сорри, не нашел в существующих топиках.
Задача в том, чтобы подставить данные одного листа на другой по значениям ключевого поля. На простом примере (вложил в топик) - на Листе 1 есть диапазон значений A1:A5 и к ним есть соответствующие значения в диапазоне B1:B5. Нужно на Лист 2 подставить в диапазон B1:B5 значения, соответствующие значениям диапазона A1:A5 (соответствие см. на Листе 1).
Понятно, что решается через ВПР, но применяться будет в постоянно изменяемых книгах, не хотелось бы использовать там формулы.
Заранее спасибо!

Решение задачи: «ВПР через VBA (не FUNCTION!)»

textual
                            Листинг программы 
                        
                            .value = APPLICATION.VLOOKUP(range("A1"),sheets("Лист1").range("A:B"),2,)