Spreadsheet Reformat

[olsonoson]

I have a spreadsheet that has been formatted in problematic way. All of the data was put in individual distinct columns, but the data should be summarized together.

So a rough example...
I have 15 columns and 20 rows of data. I am interested in analyzing every 3 columns of data together across the 15 columns. I would to be able to grab the data from the first 3 columns put it into a new spreadsheet (doesn't technically need to be a new one, but I figured that would be easier...) than grab the next 3 columns of data and move it into that newly created spreadsheet and place it right below the last row of data from the first 3 columns.

Is there anyway to do this? I really need help.... I don't want to have to do it manually as there aren't 15 columns, but nearly 2000...

Thanks!

 

[jbeaucaire]

Use this:

Option Explicit

Sub MergeToThreeColumns()
Dim LC As Long
Dim C  As Long

LC = Cells(1, Columns.Count).End(xlToLeft).Column

For C = 4 To LC Step 3
    Cells(1, C).Resize(100, 3).Cut Range("A" & Rows.Count).End(xlUp).Offset(1)
Next C
    
End Sub