Columns translation/manipulation

[Bianconijo]

Hello everybody,
I am experiencing an issue in Excel which I cannot solve by myself.

I find myself with 1280 columns with the first two rows (1, 2) filled with data:

For printing reason, I need to move all the data under columns A, B and C:

Thanks a lot for your help and suggestion!

BC

 

[mumps]

Try:

Sub MoveCells()
    Application.ScreenUpdating = False
    Dim x As Long
    For x = 1 To 1280 Step 3
        Cells(1, x).Resize(2, 3).Cut Cells(Rows.Count, "A").End(xlUp).Offset(1, 0)
    Next x
    Rows("1:2").EntireRow.Delete
    Application.ScreenUpdating = True
End Sub

 

[Bianconijo]

Your solution works perfectly!
Thank you very much for your help.

BC

 

[mumps]

You are very welcome.