Code erweitern

Sub Leerzeile()

    Dim ErsteZeile As Long, LetzteZeile As Long, Spalte As Long, i As Long

    Dim rng As Range

    ErsteZeile = 7 ' Berechnung in der Tabelle beginnt in Zeile

    LetzteZeile = 6000 ' letzte Zeile die berechnet wird

    Spalte = 1 ' das ist die Spalte in der geprüft wird ob sich das Datum ändert

    For i = LetzteZeile To ErsteZeile Step -1

        If Cells(i, Spalte) > Cells(i - 1, Spalte) Then

            Rows(i).Insert (xlShiftDown)

            Cells(i, 24) = 1

        End If

    Next i

    For Each rng In Columns(15).SpecialCells(xlCellTypeConstants).Areas

       rng(rng.Rows.Count + 1).Formula = "=sum(" & rng.Address & ")"

    Next

End Sub