Gruppierung von Zeilen mit einer bestimmten Farbe mit Makro

Hallo zusammen,

ich habe eine große Tabelle mit immer jeweils einer Zeile ohne Hintergrundfarbe und einer Zeile in hellblau.
Die hellblaue Zeile gehört inhaltlich zu der Zelle darüber ohne Hintergrundfarbe. Deswegen möchte ich die Zelle darunter jeweils gruppieren.

Ich kenne nur das Makro zum Ausblenden der Zelle in hellblau. Ich weiß aber nicht, wie ich dieselben Zeilen über die ganze Tabelle hinweg gruppieren kann.
Könnte mir jemand bitte weiterhelfen? Vielen Dank im Voraus

Sub Farbenausblenden()
Dim c As Range
Dim r As Range

For Each c In ActiveSheet.UsedRange.Columns
If c.Interior.ColorIndex = 24 Then c.EntireColumn.Hidden = True
Next c

For Each r In ActiveSheet.UsedRange.Rows
If r.Interior.ColorIndex = 24 Then r.EntireRow.Hidden = True
Next r

End Sub

Sub GroupColorRows()
    Dim row As Range
    With ActiveSheet
        For Each row In .UsedRange.Rows
            If row.Interior.ColorIndex = 24 Then
                row.Group
            End If
        Next
       .Outline.ShowLevels RowLevels:=1
    End With
End Sub