Custom sorting in VBA

[olympiac]

I am using this code suggested in a thread by Andrew Poulsom

Dim Sortrange As Range
With Sheets("sheetname")
    Set Sortrange = .Range("C2:AK10000")
    Sortrange.Sort Key1:=.Range("J2"), Order1:=xlAscending, Header:=xlNo, _
    OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
    DataOption1:=xlSortNormal
    
End With
End Sub

I would need to sort my range first by "Column J" and then by "column E"
How can I add the second level "Column E"?

 

[Andrew Poulsom]

Try:

With Sheets("sheetname")
    Set Sortrange = .Range("C2:AK10000")
    Sortrange.Sort Key1:=.Range("J2"), Order1:=xlAscending, Key2:=.Range("E2"), Order2:=xlAscending, Header:=xlNo, _
    OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
    DataOption1:=xlSortNormal
End With

 

[olympiac]

It works!
Many thanks for your support.