1行目にオートフィルタを設定、その行を固定

Sub prcSetAutoFilterAndFreezeTopRow()
    ' Sheet1の1行目にオートフィルタを設定し、その行を固定します。

    Dim wks As Worksheet

    ' Sheet1を設定
    Set wks = ThisWorkbook.Sheets("Sheet1")

    ' オートフィルタを適用
    If Not wks.AutoFilterMode Then
        wks.Rows(1).AutoFilter
    End If

    ' 1行目を固定
    With wks
        .Activate
        .Application.ActiveWindow.SplitColumn = 0
        .Application.ActiveWindow.SplitRow = 1
        .Application.ActiveWindow.FreezePanes = True
    End With
End Sub