Hilfe bei Makro ...

Sub Gesamt_ergänzen()
Dim finde
Dim found As Range
Dim firstaddress As String
Dim ZF1
finde = "Gesamt:"
If finde = "" Then Exit Sub
Set found = Cells.Find(What:=finde, LookIn:=xlValues, LookAt _
:=xlPart, MatchCase:=False)
If Not found Is Nothing Then
firstaddress = found.Address
'""""""""Ab hier hänge ich ....."""""""""""
Im Grunde soll die gefunden Zelle um eine Spalte versetzt werden und dort die Formel = "=SUM(R[-4]C:R[-1]C)" eingesetzt werden.
Do
ZF1 = Right(found.Address, 2)
Range("F" & ZF1).FormulaR1C1 = "=SUM(R[-4]C:R[-1]C)"
'Cells(2, -4).FormulaR1C1 = "=R[-1]C" ''Machfett found, finde
Set found = Cells.FindNext(found)
Loop While Not found Is Nothing And found.Address <> firstaddress
End If
End Sub