Formel durchgend mitlaufen

Sub prcTagesabschluss()
Dim wks As Worksheet
Dim Zeile_S As Long, Zeile_L As Long
Set wks = ActiveSheet ' Worksheets("Tabelle1")
With wks
'In Spalte E muss für _
alle Geschäfte ein Eintrag vorhanden sein! _
Sonst muss die 1. Zeile und letzte Zeile des Tages anders ermittelt werden
'letzte Zeile mit Inhalt in Spalte E
Zeile_L = .Cells(.Rows.Count, 5).End(xlUp).Row
'Erste Zeile des Tages in Spalte E
Zeile_S = .Cells(Zeile_L, 5).End(xlUp).Row
'Summenformel für Gewinn
.Cells(Zeile_L, 8).FormulaR1C1 = "=SUM(R" & (Zeile_S + 1) & "C4:R[0]C5)"
'Formel mit Datum durch Wert erstzen
.Cells(Zeile_S, 1).Value = .Cells(Zeile_S, 1).Value
'Zwei Leerzeilen lassen und Einträge machen
'Datums-Formel eintragen
.Cells(Zeile_L + 3, 1).FormulaR1C1 = "=TODAY()+1"
'Spaltentitel kopieren
.Range("B1:H1").Copy Destination:=.Cells(Zeile_L + 3, 2)
End With
End Sub