Formel erweitern in Schleife

Ich habe in einer Tabelle folgende Zahlen stehen:

A..... B
1..... 20
2..... 45
1..... 10
Mit folgendem Code habe ich bis anhin die Summe A1*B1 + A2*B2 + A3*B3
berechnet:

For IZ = 1 To AZ
ActiveCell= ActiveCell.Value + ActiveCell.Offset(-IZ, -1).Value * ActiveCell.Offset(-IZ, 0).Value
Next

AZ ist die Anzahl Zeilen, ermittelt mit Rows.Count

Damit sich die Summe automatisch anpasst, möchte ich nun die Formel in die Zellen schreiben:

AktiveCell.FormulaR1C1 = "=A1*B1 + A2*B2 + A3*B3"

Wie kann ich dies am besten tun ?

Gruss Frank