Кидаю файлы "стелажи", которые необходимо свести в "Свод.xlsm"

А "*.jpg"-файла нет?

Добрый вечер!
Как в файл "Свод.xlsm" в два столбца внести данные из всех файлов в папке?
Подробный пример в приложении.
Пробовал "Относительными ссылками" воспользоваться, но не получилось.  

Большое спасибо!

P.S. Я так понял, что тут без макроса не обойтись никак.

Добрый день!
Подскажите как выделить ячейку в диапазоне 2 равную активной ячейке в диапазоне 1. Пример прикреплён.
Спасибо.

Привет снова!
Текст кода:
Sub www()
With Sheets("Подтянуть"    
.Range("f9:f" & .Cells(.Rows.Count, 5).End(xlUp).Row).FormulaR1C1 = "=VLOOKUP(RC[-1],База!R2C1:R6C2,2,0)"
End With
End Sub

я вставил в другую таблицу и... автозаполнение ячеек пошло вверх.

Исправил.

Спасибо!

Большое спасибо!

Привет!
Подскажите, пожалуйста, как протянуть ВПР в столбец до последней строки с данными с другого листа этой же книги? Пример во вложении.
Заранее спасибо.