Makro Unterpos. zusammen Addieren - Erweiterung

Sub L_Vergleich()
ActiveSheet.Unprotect Password:="20Klima07"
Dim r As Long               'Zeilen# Gruppe
Dim z As Long               'letzte Zeile einer Gruppe
Dim c As Long               'Spalten#
Dim LoLetzte As Long        'Letzte belegte Zeile in Sp 1
Const LoErste As Long = 11  'Startzeile
Dim sw As Boolean
Dim i As Long
With ActiveSheet
LoLetzte = .Cells(Rows.Count, 1).End(xlUp).Row      'letzte belegte Zelle in Sp A
For r = LoErste To LoLetzte
If .Range("A" & r)  "" Then                   'Start Gruppe
If .Range("B" & r + 1)  "" Then           'wenn zur Grupp mind. 1 Detailzeile  _
_
gehört
For z = r + 1 To LoLetzte
If .Range("A" & z)  "" Then       'das Ende der Gruppe ist erreicht
z = z - 1                       'Nr letzte Detailzeile in Gruppe
Exit For
End If
Next
Application.ScreenUpdating = False
For c = 6 To 11                        'Sp F bis M abarbeiten
If .Cells(r, c) = "" Or .Cells(r, c)  "" Then         'Summe  bild  _
wenn Zelle leer oder nicht
For i = r + 1 To z
sw = False
If .Cells(i, c) = "" Or .Cells(i, c) = 0 Then 'Summe nur bilden, _
_
wenn nicht alle Werte leer
'no action
Else
sw = True
End If
If sw = True Then .Cells(r, c) = Application.WorksheetFunction.  _
_
Sum(Range(.Cells(r + 1, c), .Cells(z, c)))
Next i
End If
Next c
Application.ScreenUpdating = True
End If
End If
Next r
End With
ActiveSheet.Protect Password:="20Klima07", DrawingObjects:=False, Contents:=True,  _
Scenarios:=True _
, AllowFormattingCells:=True, AllowFormattingColumns:=True, AllowFiltering _
:=True
MsgBox "Berechnung ist abgeschlossen"
End Sub