Sub TEST()
Dim fin As Long, rng As Range
fin = Cells(Rows.Count, 1).End(3).Row
Set rng = Range(Cells(1, "A"), Cells(fin, "H"))
rng.Sort key1:=Range("H2"), Order1:=xlAscending, key2:=Range("G2"), Order2:=xlAscending, key3:=Range("E2"), Order3:=xlAscending, Header:=xlYes
End Sub