Convert iterative but unique data from a column to corresponding rows

My inability to find a solution discussed previously is likely due to not searching the right key words; however this problem certainly has been discussed prior in the forum and the solution may be simple.

Convert the following example columnar data to rows whereas A,D and G data are under the same heading as are B,E and H - etc,. I would use transpose; however there are 1000 records in the column.

Data Example

A
B
C

D
E
F

G
H
I

Desired result

A B C
D E F
G H I

This is one method.

Sub Trans()
    Dim c As Range, i As Long
    Application.ScreenUpdating = False
    For Each c In Range("A1", Range("A" & Rows.Count).End(xlUp)).SpecialCells(xlCellTypeConstants).Areas
        i = i + 1
        Range("A" & i) = Application.Transpose(c)
    Next c
    Range("A" & i + 1, Range("A" & Rows.Count).End(xlUp)).ClearContents
    Application.ScreenUpdating = True
End Sub

Try the macro included in the file

Thanks AlphaFrog and RCM for your suggestions.

I just grabbed one macro which happened to be RCM's. I had to tweek it a bit to match my exact spreadsheet but the basic algorithm details were present in the code and provided me what I needed.

I eventually did find a similar thread but it did not prove to be successful for the user but your code worked great.

I appreciate the help.

Sincerely,
Marcus

You are welcome Marcus2009 and happy holidays!!!