Expert: Tom Ogilvy - 7/8/2009

Question
I have a macro that Finds all the different manufacturers of a project in a table and adds up the total price each manufacturer accounts for in the project and puts it in a smaller table. So for example, the final, smaller table would say Microsoft in A1 and $500 in B1, and then Apple in A2 and $600 in B2, Dell in A3 $400 in B3 etc.

What I want to do is to write a macro that automatically organizes the table such that the Manufacturer with the greatest price is at the top of the list followed by the next highest all the way down to the lowest. I want to organize the table in descending order. ANy help would be greatly appreciated. thanks

Answer
Rico,

it would just be a sort of that region, with column B as the key field and choosing descending as the order

Sub SortData()
Dim r As Range
Set r = Range("A1").CurrentRegion.Resize(, 2)
r.Sort Key1:=Range("B1"), Order1:=xlDescending, Header:=xlNo
End Sub


If the data is all produced by formula, you might need to convert all the data to constants before you sort.

--
Regards,
Tom Ogilvy