Автозаполнение с переменной

[moonspell]

В диапазоне А4:B10 (B10 величина переменная и количество строк может достигать 5000) имеются данные. При помощи макроса необходимо произвести вычисление значений столбца С (к примеру С=A*B) с автозаполнением с одной переменной (количество строк).

Dim iRow As Long
Dim ws As Worksheet
Set ws = Worksheets("Лист1")

' определение последней записи
iRow = ws.Cells(Rows.Count, 1) _
 .End(xlUp).Offset(0, 0).Row

Range("C4").Select
    ActiveCell.FormulaR1C1 = "=RC[-2]*RC[-1]"

Подскажите пожалуйста как далее организовать цикл по автозаполнению столбца "С" со строки "4" по “iRow”.

[IgorGO]

' определение последней записи (убираем лишнее)
iRow = ws.Cells(Rows.Count, 1).End(xlUp).Row

for r = 4 to iRow
cells(r,3) = cells(r,1)*cells(r,2)
next

[moonspell]

IgorGo, спасибо большое за помощь.