Mit VBA: Spalten automatisch gruppieren und ausblenden

Huhu schönen guten Tag,

ich bräuchte mal ein wenig Unterstützung:
Ich habe eine Tabelle in der täglich Spalten ab z.B. Spalte-F hinzugefügt werden (links neu, rechts alt). In Spalte F-Spalte beliebig(x) stehen Daten, die aktuell nicht gebraucht werden und die ich gerne gruppieren und ausblenden würde. Dieser Vorgang wird mehrmals wiederholt, somit ist eine händerische Arbeit auch für meine Nicht-Excel-Crack-Kollegen eher umständlich und ich möchte das per Button lösen.
Es sollen automatisch alle Spalten rechts von Spalte F mit Inhalt gruppiert und ausgeblendet werden.

Ich habe viele Formeln gefunden, aber die behandeln entweder Zeilen mit bestimmten Werten oder völligst andere Vorraussetzungen.

Ich möchte mich schon vorab für jede Hilfe bedanken.

Grüße
shadow-tsw

Sub Group_Columns()
    With ActiveSheet
        .Range(.Range("F6").Offset(0, 3), .Range("F6").End(xlToRight)).Columns.Group  
        .Outline.ShowLevels ColumnLevels:=1
    End With
End Sub

Sub Group_Columns()
    On Error Resume Next
    Dim rngGroup As Range, rngStart As Range, rngEnd As Range
    With ActiveSheet
        .Outline.ShowLevels ColumnLevels:=2
        Set rngStart = .Range("F6")  
        Set rngEnd = .Cells(rngStart.Row, Columns.Count).End(xlToLeft)
        If .Range(rngStart, rngEnd).Columns.Count > 3 Then
            Set rngGroup = .Range(rngStart.Offset(0, 3), rngEnd).EntireColumn
            rngGroup.Ungroup
            rngGroup.Group
            .Outline.ShowLevels ColumnLevels:=1
        End If
    End With
End Sub