Zellen nach Eintrag bereinigen

[BIGE.l.f.e]

Moin Leute, ich habe keine biege gemacht. Ich wusste nicht mehr weiter wei ich es erklären sollte. Habe in einem anderen Forum Hilfe bekommen.
Falls irgendwer was mit anfangen kann...

---

CODE: ALLES AUSWÄHLEN

Code:

Private Sub Workbook_Open()
Dim igMenge As Range

With Sheets("Tabelle1")
    .Range("B1").Value = Date
    For Each igMenge In .Range(.Cells(3, 4), .Cells(5, 4))
        igMenge.FormulaR1C1 = "=" & igMenge & "+RC[-2]-RC[-1]"
    Next igMenge
    .Range(.Cells(3, 2), .Cells(5, 3)).Clear
End With

End Sub

so hätte es aussehen sollen.
Trotzdem an alle beteiligten noch einmal Danke für die mühen.
Grüße und ne tolle Woche