Протянуть формулу макрос

[Елена195]

Добрый день!

Мне необходимо протянуть формулу до конца списка, я написала макрос. но он тянет только до 13 строки.

Подскажите пожалуйста как правильно задать условие, что бы тянул формулу до последней заполненной строки?

Sub Макрос2()
'
' Макрос2 Макрос
'

'
    Range("C2").Select
    ActiveCell.FormulaR1C1 = "=RC[-1]*RC[-2]"
    Range("C2").Select
    Selection.AutoFill Destination:=Range("C2:C13")
    Range("C2:C13").Select
End Sub

Спасибо)

[NetSpace]

может быть, дело в написанном диапазоне?

C2:C13

[NetSpace]

я вот захочу на 1000 ячеек протянуть,
так напишу вот такой диапазон:

C2:C1000

это же школьный курс информатики за 8 класс - работа с электронными таблицами EXCEL.

[Aleksandr H.]

Sub GoMFckr()
    [c2].Resize(Cells(Rows.Count, "B").End(xlUp).Row - 1, 1).FormulaR1C1 = "=rc[-1]*rc[-2]"
End Sub

[Елена195]

Сообщение от NetSpace

я вот захочу на 1000 ячеек протянуть,
так напишу вот такой диапазон:

C2:C1000

это же школьный курс информатики за 8 класс - работа с электронными таблицами EXCEL.

Мне не нужно до 1000 строки.
Как я написала, нужно до последней свободной ячейки, потому что кол-во строк может меняться, а огромная часть столбца с #Н/Д будет мешать.
И под каждое кол-во строк переписывать макрос, сами понимаете, не самое оптимальное занятие, так как планируется что он будет ускорять работу, а не наоборот.

Я рада что у вас была хорошая подготовка по информатике за 8 класс, но вы не до конца поняли мой вопрос)

[Елена195]

Александр, Большое спасибо)

[vladislav..]

Сообщение от Aleksandr H.

Sub GoMFckr()
    [c2].Resize(Cells(Rows.Count, "B").End(xlUp).Row - 1, 1).FormulaR1C1 = "=rc[-1]*rc[-2]"
End Sub

Подскажите пожалуйста, почему данный макрос добавляет в таблицу так-же все значения выше указанной ячейки? Если над таблицей будет несколько ячеек, ровно столько он сам добавит в конец таблицы.