Macro for changing number of rows

Try this:

Sub OrderingMacro()
    Columns("A:C").Sort Key1:=Range("C1"), Order1:=xlDescending, _
                        Key2:=Range("B1"), Order2:=xlDescending, _
                        Header:=xlYes, Orientation:=xlTopToBottom
End Sub