I need an Excel VBA solution the the question below ...

I have an income statement [excel spreadsheet] run via our financial
reporting tool. Column A is hidden ; Column B contains line
descriptions. Columns D-F is for Consolidated Summary;
Columns OQ is for "Company A" data, Columns SU is for "Company B"
data, Columns WY is for "Company C" data etc.

The report can be run for 1 company or all companies [ 20 in total].

My question is that I need to re -arrange the columns with company
data as per the above according to the company with the highest
revenue. The revenue total is on line 25.
The final spreadsheet should have the data for the company with the
highest revenue in cols OQ and the next highest in cols SU etc.

Please let me know if you need more details.