=Average mit relativer Address

Wie kann ich dem EXCEL sagen welche Zeilen er für die AVERAGE-Formel braucht?

Sub BereichWählen()

Dim Diff%, Zeile%, RowAnf%

Zeile=37
ZeileAnf=7
Diff = Zeile - ZeileAnf

Range(Zeile).Select
ActiveCell.FormulaR1C1 = "=AVERAGE(R[-Diff](????????),C:R[-1]C)"

End Sub

Wie geht es?

MFG Alex