Sub Macro1()
Range("B2:J41").Select
Selection.Sort Key1:=Range("I2"), Order1:=xlDescending, Key2:=Range("H2") _
, Order2:=xlDescending, Header:=xlNo, OrderCustom:=1, MatchCase:=False _
, Orientation:=xlTopToBottom, DataOption1:=xlSortNormal, DataOption2:= _
xlSortNormal
Range("a1").Select
End Sub