RGP - Bereich per Makro flexibel halten

Sub RGP()
Selection.FormulaArray = "=LINEST(RC[-2]:R[4471]C[-2],RC[-4]:R[4471]C[-3],1,1)"
End Sub

obige Formel (RGP) möchte ich so anpassen, daß das Ende des Bereichs als Variable
übergeben wird (R[4471] also zur Variablen machen)
Habe jetzt schon so daran herumgedoktert, daß mir der Kaffee kalt geworden ist
und kann trotzdem nichts Brauchbares vorweisen
Hätte jemand dazu eine Idee ?
Schönes Wochenende
R.Schmitt