Сортировка таблицы с 2-й строки

[calypso]

Selection.Sort Key1:=Range("A2"), Order1:=xlAscending, Header:=xlGuess, _
        OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom

Почему сортирует всё равно с 1-й строки,т.е. что А1,что А2 - никак не влияет.

[calypso]

Решил проблему таким образом:

'Таблица сортируется по алфавиту
'Получаем количество строк в таблице
x = Cells(Rows.Count, 1).End(xlUp).Offset(1, 0).Row
'Выделяем ячейки по квадрату А2-G(x-1), где х последняя строка таблицы
Range("A2:G" & x - 1).Select
'Сортировка по алфавиту столбца А
Selection.Sort Key1:=Range("A1"), Order1:=xlAscending, Header:=xlGuess, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom