Протягивание формулы

[Dmitrii_V]

ситуация такая:
два столбца. в первом порядковый номер, скажем от 1 до 20,
во втором столбце в первой верхней ячейке формула.
Обычно ручками протягиваем формулу следующим образом: подводим к правому нижнему углу ячейку и двойной щелчок - формула протягивается вниз в соответствии с первым столбцом (т.е. получается равное количество значений по 20 в каждом столбце).
Теперь нужно эту операцию проделать программно.
Но!!! Заведомо неизвестно какое количество значений в первом столбце.
Вариант Range('B1:B65365').FillDown тоже не подходит.
Посоветуете чего?

[VictorM]

Не знаю, так ли я понял

Sub Test()
    iRows = Range(Range("a1"), Range("a1").End(xlDown)).Rows.Count
    Range("b1:b" & iRows).FormulaLocal = "=C1+D1"
End Sub

[Contaminated]

Или же

Sub Test()
    Dim LastRow As Long
    
    With Range("A:A")
        LastRow = .Cells(.Rows.Count, 1).End(xlUp).Row
    End With
    
    Range("B1").AutoFill Destination:=Range("B1:B" & LastRow)
        
End Sub