'
Dim zelle1 As Range'erste zu summierende Zelle
Dim zelle2 As Range'letzte zu summierende Zelle
Dim SelRange As Range Zelle auf die gesetzt werden soll
Dim zellnrF As Long'erste zeilennummer der benötigten Summe
Dim zellnrL As Long'letzte zeilennummer der benötigten Summe
Dim formel As String
Dim Ende As Long 'letzte Zeilennummer?
'Ende = 'letzte Zeilennummer der Tabelle?
zellnrF = InputBox("Bitte geben Sie die erste zu summierende zellenzeilenzahl" & _
  "ein (z.B. 87)")
zellnrL = 125
zelle1 = "F" & CInt(zellnrF)'F ist die Spalte über welche die Summe gebildet 
' werden soll
zelle2 = "F" & CInt(zellnrL)'hier komm ich nicht weiter
formel = "=SUMME(zelle1: zelle2)"
selrange.select 'Cursor auf die bestimmte Zelle setzen
Range ActiveCell.Formula = formel
Do While i <= Ende
Next zelle'ß auf nächste zelle gehen und schleife anfangen
Do While i <= Ende
'Hier steht dann qusi der obere Teil (Zeile für Zeile)
    Range("F33").Select'?
End Sub

Gruß Armin

P.S.: always look on the bright side of Life!