Organising table in ascending/descending order

[Newbie`]

I want to make a table showing Item, Price, Quantity Sold and Total.

I can set either column to ascending/descending without any issue and have that include the other columns. But i want to know if there is a way for it to show for example the highest total with the highest quantity?


Is it possible, any help would be appreciated.

 

[Logit]

.
This macro presumes your data begins on the third row and your Column Headers are on the second row:

Sub SrtDescendCnD()


wsLast_Row = Cells(Rows.Count, 1).End(xlUp).Row
With ActiveWorkbook.ActiveSheet.Sort
.SortFields.Clear
.SortFields.Add Key:=Range("C3:C" & wsLast_Row), Order:=xlDescending
.SortFields.Add Key:=Range("D3:D" & wsLast_Row), Order:=xlDescending
.SetRange Range("A3:D" & wsLast_Row)
.Header = xlNo
.Apply
End With
End Sub

 

[Logit]

.
Actually, disregard the previous post. Try this one :

Sub SortIndividualJR()
    Dim Rng1 As Range
    Dim Rng2 As Range
    Dim ws As Worksheet
    Set ws = ActiveSheet
    On Error Resume Next
    Set Rng1 = Application.InputBox(Prompt:="Range Selection:", _
                                    Title:="Kutools for excel", Type:=8)
    Application.ScreenUpdating = False
    For Each Rng2 In Rng1
        With ws.Sort
            .SortFields.Clear
            .SortFields.Add Key:=Rng2, Order:=xlDescending
            .SetRange ws.Range(Rng2, Rng2.End(xlDown))
            .Header = xlNo
            .MatchCase = False
            .Apply
        End With
    Next Rng2
    Application.ScreenUpdating = True
End Sub

(I returned too late to the previous post to either delete it or edit so the code was formatted correctly. If a Moderator wants to delete post #2 , that would be great.)