Sub Tri()
ActiveSheet.UsedRange.Sort Key1:=Range('D2'), Order1:=xlAscending, Key2:=Range('C2') _
, Order2:=xlAscending, Key3:=Range('B2'), Order3:=xlAscending, Header:= _
xlGuess, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
End Sub
Private Sub CommandButton1_Click()
Tri
End Sub