Sub MM1()
Range("C1:D1000").Select 'change ranges for C and D to suit
Selection.Sort Key1:=Range("C15"), Order1:=xlAscending, Key2:=Range("I15") _
, Order2:=xlAscending, Header:=xlGuess, OrderCustom:=1, MatchCase:= _
False, Orientation:=xlTopToBottom
End Sub