Hier die Aufzeichnung meines Makros:

Sub Gymnastik2_aus_Stammdaten1()
'
' Gymnastik2_aus_Stammdaten1 Makro
' Gruppenliste Gymnastik2 aus Stammdaten1 erstellen.
'

'
    Cells.Select
    Selection.EntireColumn.Hidden = False
    Range("B5").Select
    Workbooks.Open Filename:="C:\Users\PB\Desktop\Stammdaten 1.xlsm", _
        UpdateLinks:=3
    Cells.Select
    Selection.EntireColumn.Hidden = False
    ActiveWindow.SmallScroll ToRight:=9
    Range("Y8").Select
    Selection.AutoFilter
    ActiveSheet.ListObjects("Tabelle1").Range.AutoFilter Field:=25, Criteria1:= _
        "<>"
    ActiveWindow.ScrollColumn = 9
    ActiveWindow.ScrollColumn = 8
    ActiveWindow.ScrollColumn = 7
    ActiveWindow.ScrollColumn = 6
    ActiveWindow.ScrollColumn = 5
    ActiveWindow.ScrollColumn = 4
    ActiveWindow.ScrollColumn = 3
    ActiveWindow.ScrollColumn = 2
    ActiveWindow.ScrollColumn = 1
    Range("B24:Y188").Select
    Selection.Copy
    Windows("Gruppe Gymnastik 2.xlsm").Activate
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Windows("Stammdaten 1.xlsm").Activate
    Application.CutCopyMode = False
    ActiveSheet.ListObjects("Tabelle1").Range.AutoFilter Field:=25
    Selection.AutoFilter
    ActiveWindow.ScrollColumn = 7
    ActiveWindow.ScrollColumn = 6
    ActiveWindow.ScrollColumn = 5
    ActiveWindow.ScrollColumn = 4
    ActiveWindow.ScrollColumn = 3
    ActiveWindow.ScrollColumn = 2
    ActiveWindow.ScrollColumn = 1
    Range("G:G,I:I,J:J,L:L,M:M").Select
    Range("M1").Activate
    Selection.EntireColumn.Hidden = True
    ActiveWorkbook.Save
    ActiveWindow.Close
    Range("D:J,L:L,M:M,O:O").Select
    Range("O1").Activate
    ActiveWindow.SmallScroll ToRight:=7
    Range("D:J,L:L,M:M,O:Y").Select
    Range("O1").Activate
    Selection.EntireColumn.Hidden = True
    ActiveWindow.ScrollColumn = 3
    ActiveWindow.ScrollColumn = 2
    ActiveWindow.ScrollColumn = 1
    Range("AQ7").Select
End Sub