Проблема с сортировкой

[manula]

Добрый день уважаемые коллеги, не могли бы Вы мне подсказать с решением такой проблемы и как ее реализовать чтобы с помощью макроса выполнилось 3 сортировки, пошаговые, сначала одна сортировка, потом в ней другая и затем уже третья, такая получается вложенность сортировок.
Я делал, что на подобие, ну это бред и не работает конечно же:

 
ActiveSheet.Range("A5:BU" & strk - 1).Select
   Selection.Sort Key1:=Range("A5"), Order1:=xlAscending, Header:=xlGuess, _
      OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
      DataOption1:=xlSortNormal
   Selection.Sort Key2:=Range("C5"), Order2:=xlAscending, Header:=xlGuess, _
      OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
      DataOption1:=xlSortNormal
   Selection.Sort Key3:=Range("B5"), Order3:=xlAscending, Header:=xlGuess, _
      OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
      DataOption1:=xlSortNormal

Подскажите коллеги как можно такое реализовать и можно ли вообще!)

[Казанский]

Все делается за один вызов команды Сортировка, надо указать в полях "затем по..." дополнительные условия. Запишите в макрос.

[Dima_com]

Тоже подобный вопрос был вот тема обсуждения:http://www.programmersforum.ru/showthread.php?t=246785