Коллеги приветствую!
Подскажите как программно протянуть формулу из верхней ячейки на весь столбец

Cells(1, 2).Select
ActiveCell.FormulaR1C1 = _
"=VLOOKUP(RC[-1],'[Lenovo_Gameplan_current.xls]BladeCenter Options'!C1:C6,6,0)"
Selection.AutoFill Destination:=Range("B1:B" & MM), Type:=xlFillDefault

через Range вариант не подходит увы. Хочу сделать через Cells

Спасибо заранее!

Selection.AutoFill Destination:=Range("B1:B" & MM), Type:=xlFillDefault

вот этот вариант мне не подходит

The_Prist, спасибо, но что это такое Cells(1,2).Resize(MM) ??
немного поясню что мне надо.
мне надо программно протянуть ВПР на двадцать столбцов (в каждом столбце разные), только я не знаю как это задать при помощи

Selection.AutoFill Destination:=Range("B1:B" & MM), Type:=xlFillDefault

здесь столбец явно прописывается ("B1:B" & MM) , а мне надо циклом это сделать

всё разобрался
вот как это можно было сделать

Selection.AutoFill Destination:=Range(Cells(1, i + 1), Cells(MM, i + 1)), Type:=xlFillDefault