Как вставить формулу в координаты ячейки

[Иван Мантров]

Привет! У меня есть простенький код:

Range("D2").Select
Selection.AutoFill Destination:=Range("D2:D10")

Но автозаполнение возможно должно будет происходить до 11-го, 15-го или любого другого ряда, в зависимости от количества заполненных ячеек в столбце слева.
Можно ли вместо D10 поставить переменное значение. Что-то типа формулы =счетз(C:C)

[Aleksandr H.]

Range("D2").Select
Selection.AutoFill Destination:=Range("D2:D"&COUNTA(C:C))

[Иван Мантров]

Попробовал. Пишет: Syntax Error

[pashulka]

Если :
1) ячейки в столбце C заполнены, начиная с C1
2) между первой и последней заполненной ячейкой нет пустых
3) используется стиль ссылок A1

то тогда можно :

Range("D2").AutoFill Destination:=Range("D2:D" & [COUNTA(C:C)])

В противном случае :

Range("D2").AutoFill Range("D2:D" & Cells(Rows.Count, 3).End(xlUp).Row)

или

Range("D2:D" & Cells(Rows.Count, 3).End(xlUp).Row) = Range("D2").Formula

[Aleksandr H.]

Dim rng As String
Range("D2").Select
rng = "D2:D" & WorksheetFunction.CountA("C1:C500")
Selection.AutoFill Destination:=Range(rng)

[pashulka]

На самом деле, Range можно использовать как evaluator

Range("D2").AutoFill Range("D2:INDEX(D:D,COUNTA(C:C))")

Но тоже самое, можно сделать и без него

[D2].AutoFill [D2:INDEX(D:D,COUNTA(C:C))]

[IgorGO]

возможно все...
если понимать где данные и что с ними может происходить