Qui peut corriger ma formule ? (sur l'adresse cellule)

bonjour,
vois ma formule :

1. GR = ActiveCell.AddressLocal
2.
3. Worksheets("tt").Range("G20").FormulaLocal = "=Somme(G4:" & GR & ")"


elle fonctionne bien mais je souhaiterais que GR retranche 2 cellules a l'activecell

je suis pas clair , je m'en rend compte.

je souhaiterais par exemple que si je selectionne la cellule G48 , GR= activecell - 2 rangés

exemple : je selectionne G25 et GR= G23


merci d'avance