How to sort 3 paired columns from left to right?

[SonnyTito]

Looking for VBA code to sort 3 paired columns ascending fromleft to right based on a total at the bottom ?
I have 6 columns, paired by 2 next to each other from A to F.
This means the A and B, C and D, E and F need to stay adjacent to each other.
At the bottom of the B, D and F column the totals (sum) are calculated of thevalues in these columns.
How can I sort these columns based on the totals in ascending order from leftto right and that the paired columns AB, CD and EF remain paired and in thesame order.
Eg. AB-CD-EF becomes EF-AB-CD after sorting
Thank you for your input and help

 

[Jeffrey Mahoney]

I recorded a macro to sort each of the paired tables in as much time as it took me to do the actual sort. You can do the same. I would get rid of the rows that SELECT ranges. But other than that, you are mostly redy to go.

Jeff

Sub Macro9()
'
' Macro9 Macro
'


'
    ActiveWorkbook.Worksheets("Sheet7").Sort.SortFields.Clear
    ActiveWorkbook.Worksheets("Sheet7").Sort.SortFields.Add Key:=Range("A2:A4"), _
        SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
    With ActiveWorkbook.Worksheets("Sheet7").Sort
        .SetRange Range("A1:B4")
        .Header = xlYes
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With
    Range("C1:D4").Select
    ActiveWorkbook.Worksheets("Sheet7").Sort.SortFields.Clear
    ActiveWorkbook.Worksheets("Sheet7").Sort.SortFields.Add Key:=Range("C2:C4"), _
        SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
    With ActiveWorkbook.Worksheets("Sheet7").Sort
        .SetRange Range("C1:D4")
        .Header = xlYes
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With
    Range("E1:F4").Select
    ActiveWorkbook.Worksheets("Sheet7").Sort.SortFields.Clear
    ActiveWorkbook.Worksheets("Sheet7").Sort.SortFields.Add Key:=Range("E2:E4"), _
        SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
    With ActiveWorkbook.Worksheets("Sheet7").Sort
        .SetRange Range("E1:F4")
        .Header = xlYes
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With
End Sub

 

[SonnyTito]

Thank you for your suggestions Jeffrey but is I look at the code, it seems to me the paired columns will be sorted row wise and that is not what I want.
The rows need to stay in the same order but the columns need to be sorted from left tonright.