Sub gesamt_stream()
'
' gesamt_stream Makro
' Makro am 10.04.2009 von Prian0815 aufgezeichnet
'
Dim zelle1 As Range
Dim zelle2 As Range
Dim actcell As Range
Dim zellnrF As Long
Dim Zellnract As Long
Dim zellnrL As Long
Dim WS As Worksheet
Dim Formel As String
WS = ActiveSheet.Name
zellnrF = InputBox("Bitte geben Sie die erste zu summierende zellenzeilenzahl" & _
  "ei ein (z.B. 87)")
zellenrL = Cells(Rows.Count, 1).End(xlUp).Row
MsgBox zellnrL
Zellnract = zellnrF
actcell = "G" & strint(zellnrF)
Cells(actcell).Select
zelle1 = "F" & strint(zellnrF)
zelle2 = "F" & strint(Zellnract)
Formel = "=SUMME(zelle1: zelle2)+ Summe(F1:F2)"
Cells(actcell).Formula = Formel
Do While Zellnract <= zellenrL
    Zellnract = Zellnract + 1
    actcell = "G" & strint(Zellnract)
    zelle2 = "F" & strint(Zellnract)
    Formel = "=SUMME(zelle1: zelle2) + Summe(F1:F2)"
    Cells(actcell).Select
    Cells(actcell).Formula = Formel
Wend
End Sub

Gruß Armin

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