Az átalakítást már eleve az Összes lapon kellene megcsinálnod.

A makróból kiveheted a rendező sort, ha nem akarod az eredeti sorrendet megváltoztatni.

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