Sub triabc1()
With Range("A2:T900")
.Sort Key1:=Range("G3"), Order1:=xlAscending, Key2:=Range("H3"), Order2:=xlAscending, _
Header:=xlGuess
.Sort Key1:=Range("D3"), Order1:=xlAscending, Key2:=Range("E3"), Order2:=xlAscending, _
Key3:=Range("F3"), Order3:=xlAscending, Header:=xlGuess
.Sort Key1:=Range("A3"), Order1:=xlAscending, Key2:=Range("B3"), Order2:=xlAscending, _
Key3:=Range("C3"), Order3:=xlAscending, Header:=xlGuess
End With
End Sub