Как написать макрос, который бы переносил данные из одного файла в другой

[Secto500]

Здравствуйте!
Если описать словами, что я хочу сделать, то примерно следующее:
1). В первом файле 2 ("Первичная информация.xlsm") столбца: "Блок" (текстовые значения "Блок 01", "Блок 02" и т.д.), Количество (числа).Поиск функции типа ВПР в первом файле (возврат числа, соответствующего Блока).
2). Во втором файле ("Проба макроса.xlsm") 2 столбца: "Продукт" (текстовые значения "Апельсин", "Мандарин", "Ананас"), Количество2 (пустая колонка). Поиск функции типа ВПР во втором файле, но только возвращает она не конкретное значение, а адрес ячейки.
3) Занесение найденного числа из первого файла в адрес ячейки, найденного во втором. Текстовое значение "Апельсин" равен "Блок 05", нужно лишь приравнять их числовые значения во вторых столбцах, только в первом файле больше текстовых ячеек, чем во втором, и порядок их может быть иным (т.е. Блок 05 может быть в начале, а Апельсин в конце диапазона).
Проблема возникает в функции VLOOKUP4 в строчке Set VLOOKUP4 = Table.Cells(i, R).Address
Как мне кажется она должна возвращать адрес найденной ячейки, но видимо я где-то ошибаюсь в синтаксисе. Помогите, поправить код. Сам код во вложении (Проба макроса.xlsm)

[alex77755]

В первом файле 2 ("Первичная информация.xlsm")

Вложения Первичная информация.txt

Можно было бы и такое вложение сделать!
Вложения Первичная информация.ipj
Прицепил бы файлы.
Лично мне лениво создавать самому.