Macro to sort column datasets based on totals

Hey Guys & Girls,

I'm quite sure this is possible but I think it can only be done by macro, if you know a fast manual way of doing it then I don't mind if it is manual.

I have attached an example workbook with two sheets "Before" and "After" to make it clear of the outcome.

If you look in "Before" you will see that each dataset is filled with color to make it easier, a dataset is 3 columns wide (D:F, G:I, J:L...etc)

I need it to add (sum) all of the numbers in the first two columns of each dataset and then sort the groups of datasets and shuffle them around in their correct groups. (See the "After" sheet for the outcome (please note I do NOT need the forumla what is in Row 2, that is just for show.

My main document travels down 5,000+ rows and spans across A LONG way past AAA

Any help would be appreciated.
- Hyflex