Подстановка значений в формулу

[Хитрый]

Есть подсчет выделенных ячеек в листе

Dim lCellsCount As Long
lCellsCount = Selection.Count


Есть работающая формула (СУММПРОИЗВ)
ActiveCell.FormulaR1C1 = _
"=SUMPRODUCT(RC[-5]:R[7]C[-5],RC[-1]:R[7]C[-1])/SUM(RC[-1]:R[7]C[-1])"

подскажите как передать значения (число подсчитанных ячеек) в эту формулу (выделил красным)

[Calvin]

Код: Выделить всё

Dim lCellsCount As Long
lCellsCount = Selection.Count


Есть работающая формула (СУММПРОИЗВ)
ActiveCell.FormulaR1C1 = _
"=SUMPRODUCT(RC[-5]:R[" & lCellsCount  & "]C[-5],RC[-1]:R[" & lCellsCount  & "]C[-1])/SUM(RC[-1]:R[" & lCellsCount  & "]C[-1])"