Zellen Fixieren mit Makro?

[Excelmachtspass]

Habe eine größere Tabelle mit mehrere Spalten. 
Aus dieser erzeuge ich per Makro einzelne Excel Dateien mit den Daten ich benötige und Gruppiere gleich einzelne Zeilen.
Diese werden dann in einem Ordner gespeichert. Das funktioniert soweit ganz gut.

Jetzt würde ich jedoch gern die ersten 8 Zeilen automatisch fixieren. 
Kann man dies gleich mit in das Marko mit einbauen wie das gruppieren? 
Habe da leider keinen Befehl gefunden.

Code:

Sub Komplett_Test()
Sheets.Add After:=ActiveSheet
Sheets("Tabelle1").Select
Sheets("Tabelle1").Name = "Abteilung 1"


Sheets("Übersicht").Select
Range("A1:P66").copy
Sheets("Abteilung 1").Select
Range("A1").Select
ActiveSheet.Paste
Columns("A:P").AutoFit
Cells(1, 1).Select
Rows("3:5").Group
Rows("13:19").Group

Code:

Dim wkb As Workbook
    Dim wks As Worksheet
   
    Application.ScreenUpdating = False
    Application.DisplayAlerts = False
   
    With ThisWorkbook
        For Each wks In .Worksheets
            wks.copy
            Set wkb = ActiveWorkbook
            wkb.SaveAs "C:\Users\Benutzer1\OneDrive - Abteilung\Desktop\Report\" & wks.Name & " Reporting " & Format(DateAdd("m", -1, Now), "MMM-YY") & ".xlsx", xlOpenXMLWorkbook
            wkb.Close False
            Set wkb = Nothing
        Next
        Set wks = Nothing
    End With
   
    Application.DisplayAlerts = True
    Application.ScreenUpdating = True

End Sub

Vielleicht hat ja jemand eine schlaue Idee. 

Euch einen schönen Tag.  

[HKindler]

Hi,

eine Idee? Ja klar! Verwende doch einfach mal den Makrorekorder. Der ist zwar unbrauchbar wenn es darum geht ein fertiges Programm zu erzeugen, aber wenn man nur "keinen Befehl gefunden" hat, dann ist er sehr nützlich!

[DIZA]

Code:

    Range("A9").Activate
    ActiveWindow.FreezePanes = True

[Excelmachtspass]

Danke. Funktioniert super.