vba - VBAを使用してExcelでテーブルを並べ替えますか?

Question

次の VBA コードを使用してテーブルを並べ替えようとしました。コードは正しい列を選択し、列フィルターは、並べ替えられたことを示す小さな矢印を取得します。しかし、行はソートされません。それらはソートされないままです。

なにが問題ですか？

Sub SortTableTest()
    Dim tbl As ListObject
    Dim columnToSortBy As Range

    Set tbl = Sheets("PB").ListObjects("AI")
    Set columnToSortBy = tbl.ListColumns(9).Range

    'Sort table
    With tbl.Sort
        .SortFields.Clear
        .SortFields.Add columnToSortBy, xlDescending
        .Header = xlYes
        .MatchCase = False
        .Apply
    End With
End Sub