Sub Summenleiste()
    Dim I As Integer, AnzahlZeilen As Integer, Beginn As Integer
    Dim x As Integer, j As Integer
 
    Beginn = 2
    I = 13
    Do While Cells(I, 1) <> ""
 
        If Cells(I, 1) = Cells(I + 1, 1) Then
            GoTo ende
        Else
            I = I + 1
            Range("A" & I & ":V" & I).Select
            ActiveCell.EntireRow.Insert
            Cells(I, 2) = "Summe"
            Range("F" & I & ":F" & I).FormulaR1C1 = "=SUMME(F" & Beginn & ":F" _
              & I - 1 & ")"
 
..und so weiter

Cells(I, 6) = "=SUMME(F" & Beginn & ":F" & I - 1 & ")"

-----------------------------------------------------------------------------------------------------------------------
Die ?nderungsw?nsche des Kunden haben einen Kurzschlu? in der Software ausgel?st.