[Excel 2010] Сортировка умной таблицы

Sub Сортировка_2()
ActiveWorkbook.CheckCompatibility = False ' отменяем проверку совместимости
'----------------------------------------------------------------------------
    Dim sName, obj As String
    sName = ActiveWorkbook.ActiveSheet.Name ' имя активного листа
'----------------------------------------------------------------------------
    For Each obj In sName.ListObjects ' получение имя активной таблицы
        If obj.Active Then nameTbl = obj.Name: Exit For
    Next obj
    Debug.Print nameTbl
'----------------------------------------------------------------------------
ActiveWorkbook.sName.ListObjects(obj).Sort. _
        SortFields.Clear
    ActiveWorkbook.sName.ListObjects(obj).Sort. _
        SortFields.Add Key:=Range("obj[Group]"), SortOn:= _
        xlSortOnValues, Order:=xlAscending, CustomOrder:= _
        "КУПЛЮ :,ПРОДАМ :,АРЕНДА :,НЕДВИЖИМОСТЬ :,ТРАНСПОРТ :,УСЛУГИ :,РАБОТА :,РАЗНОЕ :" _
        , DataOption:=xlSortNormal
    With ActiveWorkbook.sName.ListObjects.obj.Sort
        .Header = xlYes
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With
End Sub

Private Sub Test()
    Dim iSource As ListObject
    Set iSource = ActiveCell.ListObject
    If iSource Is Nothing Then Exit Sub
    
    With iSource.Sort
         .SortFields.Clear
         'Здесь можно установить необходимые значения свойств
         ...
    End With
End Sub

Private Sub Test()
    With ActiveSheet.ListObjects(1).Sort
         .SortFields.Clear
         ...
    End With
End Sub

Sub Сортировка_2()
With ActiveSheet.ListObjects(1)
    .Sort.SortFields.Clear
    .Sort.SortFields.Add Key:=.Range.Columns(9), SortOn:= _
                        xlSortOnValues, Order:=xlAscending, CustomOrder:= _
                        "КУПЛЮ :,ПРОДАМ :,АРЕНДА :,НЕДВИЖИМОСТЬ :,ТРАНСПОРТ :,УСЛУГИ :,РАБОТА :,РАЗНОЕ :" _
                        , DataOption:=xlSortNormal
    With .Sort
        .Header = xlYes
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With
End With
End Sub