Ошибка выполнения сортировки столбца VBA Excel 1004

Question

Я хочу отсортировать столбец A без выбора, но я продолжаю получать сообщения об ошибках,

Невозможно получить свойство сортировки класса диапазона

'Sort Managers
With QueWS.Columns("A:A")
    .Sort.SortFields.Clear
    .Sort.SortFields.Add Key:=Range("A2:A" & LastRow), _
        SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
    With ActiveWorkbook.Worksheets("Que").Sort
        .SetRange Range("A1", Cells(LastRow, LastColumn))
        .Header = xlYes
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With
End With

Answer 1

Попробуйте это

With ActiveWorkbook.Worksheets("Que")
    .Sort.SortFields.Clear
    .Sort.SortFields.Add Key:=Range("A1"), _
        SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
    With ActiveWorkbook.Worksheets("Que").Sort
        .SetRange Range("A2:A" & LastRow)
        .Header = xlYes
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With
End With