I have a large data set that I have managed to arrange in the following format as an example:

A A
One 1
Two 2
Three 3
Four 4
Five 5
Six 6
Seven 7
B B
One 1
Two 2
Three 3
Four 4
Five 5
Six 6
C C
One 1
Two 2
Three 3
Four 4
Five 5
Six 6
Seven 7
Eight 8


I would like to split the data into separate columns...like this:

A A B B C C
One 1 One 1 One 1
Two 2 Two 2 Two 2
Three 3 Three 3 Three 3
Four 4 Four 4 Four 4
Five 5 Five 5 Five 5
Six 6 Six 6 Six 6
Seven 7 Seven 7
Eight 8


This is one of the last steps in getting my data into a usable format. I am already employing various VBA macros to get the data into the first format. I hit a roadblock with this next major step. I have done some extensive googling and have not been able to come with the right macro.

The new headers do not have a unique identifier other than that they are text and not integers. This text can be quite variable.

Thank you for your help.