update Sort Macro

I'd like to update a sort macro (I know knowing about macros) on a spread sheet I've inherited.

The info in cells A3:E60 are sorted by this macro, but I would also like info in cells AA3:AB60 and AD3:AN60 sorted along with A3:A60 when the macro is ran.

Sheets(" MON").Select
Selection.sort Key1:=Range("E60"), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortTextAsNumbers
Sheets(" TUE").Select
Selection.sort Key1:=Range("E60"), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortTextAsNumbers
Sheets(" WED").Select
Selection.sort Key1:=Range("E60"), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortTextAsNumbers
Sheets(" THUR").Select
Selection.sort Key1:=Range("E60"), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortTextAsNumbers
Sheets(" FRI").Select
Selection.sort Key1:=Range("E60"), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortTextAsNumbers
Sheets(" SAT").Select
Selection.sort Key1:=Range("E60"), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortTextAsNumbers
Sheets(" SUN").Select
Selection.sort Key1:=Range("E60"), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortTextAsNumbers



Can anyone help with this please :-)