Option Explicit
Sub Tri()
With Range("A1:D100")
.Sort Key1:=Range("B2"), Order1:=xlAscending, Header:=xlGuess
.Sort Key1:=Range("C2"), Order1:=xlAscending, Header:=xlGuess
.Sort Key1:=Range("D2"), Order1:=xlAscending, Header:=xlGuess
.Sort Key1:=Range("A2"), Order1:=xlAscending, Header:=xlGuess
End With
Range("A1").Select
End Sub