VBAでリストを降順に並び替えたい

Question

前提・実現したいこと

VBA
Sheet1のA1から始まるリストをEP1の項目で降順に並び替えたい。
1行目には見出しが入っている。
行と列数は変動する可能性があるので、行列数に合わせた範囲を指定したい。

発生している問題・エラーメッセージ

コンパイルエラー
修正候補：　名前付き構文

該当のソースコード

Sub 降順並び替え()
    Dim lRow As Long
    Dim lCol As Long
    Dim Rng As Range
        With Worksheets("Sheet1")
            lRow = Cells(Rows.Count, 1).End(xlUp).Row
            lCol = Cells(1, Columns.Count).End(xlToLeft).Column
            Set Rng = .Range(Cells(1, 1), Cells(lRow, lCol))
            Rng.Sort _
                Key1:=.Range("EP1"), _
                Order1:=xlDescending, _
                Header:=xlYes, _
        End With
End Sub

試したこと

補足情報（FW/ツールのバージョンなど）

Answer 1

最後の名前付き引数（Header:=xlYes）の後のカンマと_を削除します。

Sub 降順並び替え()
    Dim lRow As Long
    Dim lCol As Long
    Dim Rng As Range
        With Worksheets("Sheet1")
            lRow = Cells(Rows.Count, 1).End(xlUp).Row
            lCol = Cells(1, Columns.Count).End(xlToLeft).Column
            Set Rng = .Range(Cells(1, 1), Cells(lRow, lCol))
            Rng.Sort _
                Key1:=.Range("EP1"), _
                Order1:=xlDescending, _
                Header:=xlYes               
        End With
End Sub

Comments

[manb0u]

お恥ずかしい限りです。
ありがとうございました。

Answer 2

EP列でのソートが、希望する処理なのですね。
タイトルにEP1とある列でのソートと誤解してしまいました。
失礼しました。

撤回させていただきます。

現在のコードは、.Range("EP1") が、EP列の1行目となるため、エラーになっています。

EP1をタイトルとして設定している列を探して、その列をkey1に設定するか、該当列に名前付けをして、その名前で指定するように変更してください。