شوف هذا ممكن يفيدك
Private Sub CommandButton1_Click()
Range("B3").Select
Selection.Sort Key1:=Range("B3"), Order1:=xlDescending, Key2:=Range("B3") _
, Order2:=xlDescending, Header:=xlGuess, OrderCustom:=1, MatchCase:= _
False, Orientation:=xlTopToBottom
End Sub