VBA Sum over variabelt antal rækker

Prøv en anden formulering :-)

Jeg mangler en VBAkode formel, som makro indsætter i en celle, og som beregner summen af de overstående 20, 30, 40 eller 50 celler. Jeg kender adressen på øverste celle, men ikke på nederste. Det nærmeste jeg kender, kommer med koden
Selection.End(xlDown).Select. Kan det udtrykkes i en variabel, som kan bruges i
FormulaR1C1="=Sum(H3:??)" ?
Hilsen
Henry

Denne indsætter en sum under den sidste værdi i aktiv kolonne

Sub GetSum()
kol = ActiveCell.Column
rk = Cells(1000, kol).End(xlUp).Row
x = Range(Cells(1, kol), Cells(rk, kol)).Address
Cells(rk + 1, kol).Formula = "=Sum(" & x & ")"
End Sub

Perfekt. Tak for det.
Jeg kan ikke gennemskue denne del af koden: (" & x & ")", og det vil jeg gentlig gerne.
Får jeg det som svar???
Hilsen
Henry

Hej excelent
Jeg tænkte mig vist ikke om. Du definerede jo x i linjen ovenover.
Sender du et svar?
Hilsen
Henry

ja x sættes til en adresseværdi ala $A$1:$A$8
ret 1 tal til andet, hvis der ikke skal summes fra række 1

Lidt supplerende alligevel: hvorfor "&" tegnene i formlen(" & x & ") ?

x skal stå uden for "" ellers opfattes det ikke som en variabel men tekst
& anvendes til at sammenkæde de 3 argumenter :
"=Sum("    x    ")"

Se det er til at forstå.
Tak for det.