Move two rows at the same time to adjacent columns

[Gogators]

Hi, please help.

My original table is:


Row
[TABLE="width: 500"]
<tbody>[TR]
[TD]1[/TD]
[TD]Title 1[/TD]
[/TR]
[TR]
[TD]2[/TD]
[TD]Description1[/TD]
[/TR]
[TR]
[TD]3[/TD]
[TD]Title 2[/TD]
[/TR]
[TR]
[TD]4[/TD]
[TD]Description 2[/TD]
[/TR]
[TR]
[TD]5[/TD]
[TD]Title 3[/TD]
[/TR]
[TR]
[TD]6[/TD]
[TD]Description 3[/TD]
[/TR]
</tbody>[/TABLE]


I need the following result:


[TABLE="width: 500"]
<tbody>[TR]
[TD]A[/TD]
[TD]B[/TD]
[TD]C[/TD]
[/TR]
[TR]
[TD]Title1[/TD]
[TD]Title 2[/TD]
[TD]Title 3[/TD]
[/TR]
[TR]
[TD]Description 1[/TD]
[TD]Description 2[/TD]
[TD]Description3[/TD]
[/TR]
</tbody>[/TABLE]

I appreciate your help, thanks in advance.

Joe

 

[DanteAmor]

Try this

Sub Move_two_rows()
    Dim i As Long, j As Long
    j = 2
    For i = 3 To Range("A" & Rows.Count).End(xlUp).Row Step 2
        Range("A" & i).Resize(2, 1).Cut Destination:=Cells(1, j)
        j = j + 1
    Next
End Sub

 

[Gogators]

Thank you. I can't get to run this macro on my Excel for Mac, it hangs. Something's off, not the VBA, it's on my end.

Joe