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

Это СУММПРОИЗВ

ActiveCell.FormulaR1C1 = _
"=SUMPRODUCT((RC[-7]=Лист1!R[-1]C[-9]:R[700]C[-9])*(RC[-9]=Лист1!R[-1]C[-8]:R[700]C[-8])*Лист1!R[-1]C[-7]:R[700]C[-7])"


из Листа1 подтягиваются значения на текущий лист по 2 условиям.
Мне надо это делать в макросе и подставлять значения в формулу, то есть диапазон R[700] меняется!
Допустим это параметр z, который вычислен ранее.
Если подставлять напрямую
ActiveCell.FormulaR1C1 = _
"=SUMPRODUCT((RC[-7]=Лист1!R[-1]C[-9]:R[700]C[-9])*(RC[-9]=Лист1!R[-1]C[-8]:R["&z&" ]C[-8])*Лист1!R[-1]C[-7]:R["&z&" ]C[-7])"
то так не работает

Подскажите, пожалуйста!!!

Infinity Creator,

В переменной хочу передать кол-во строк, там же диапазон надо указать

ТаранагаА так:
ActiveCell.FormulaArray = _
"=SUMPRODUCT((RC[-7]=Лист1!R[-1]C[-9]:R["&z&"]C[-9])*(RC[-9]=Лист1!R[-1]C[-8]:R["&z&" ]C[-8])*Лист1!R[-1]C[-7]:R["&z&" ]C[-7])"
Работает?

Да, спасибо, так работает, только еще столкнулась с проблемой, не знаю как зафиксировать диапазон, чтобы продлить на другие ячейки, т.е. надо чтобы получилось такое
=СУММПРОИЗВ((D2=ТВП!$B$1:$B$704)*(B2=ТВП!$C$1:$C$704)*ТВП!$D$1:$D$704)
Как в этом виде зафиксировать при продлении диапазон?

ActiveCell.FormulaArray = _
"=SUMPRODUCT((RC[-7]=Лист1!R[-1]C[-9]:R["&z&"]C[-9])*(RC[-9]=Лист1!R[-1]C[-8]:R["&z&" ]C[-8])*Лист1!R[-1]C[-7]:R["&z&" ]C[-7])"

Taranaga,
Я не это имела ввиду.
Когда вот таким способом продлеваю эту формулу на другие ячейки
Range("K2").Select
Selection.AutoFill Destination:=Range("K2:K" & kkf & ""), Type:=xlFillDefault
Range("K2:K" & kkf & "").Select

Если первая строка с правильным диапазоном
=СУММПРОИЗВ((D2=ТВП!B1:B704)*(B2=ТВП!C1:C704)*ТВП!D1:D704)
то вторая уже нет
=СУММПРОИЗВ((D3=ТВП!B2:B705)*(B3=ТВП!C2:C705)*ТВП!D2:D705)

Как этого избежать?

Taranaga,

Спасибо, очень помогло :)