Sorteringsmakro m. flere kriterier

Jeg har en lidt problemer med at konstruere en makro der kan sortere efter flere kriterier. Makroen skal indsættes som modul således den automatisk opdaterer arket og jeg har følgende makro der i øvrigt virker fint:

Sub MoveSort()
 
    Range("A5:AM106").Select
    Range("AM5").Activate
Selection.Sort Key1:=Range("AM5"), Order1:=xlAscending, Header:=xlGuess, _
            OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom

End Sub

Denne sorterer efter kolonne AM, men jeg vil i samme makro have kolonne E som kriterie nummer 2.

Nogen løsninger?

Tak