Moving alternate rows of data to column

Another way :

PHP Code: 

Sub Demo()
    With Cells(1).CurrentRegion:  VA = .Value:  .Clear:  End With

    With Cells(1).Resize(UBound(VA) / 3, 3)
        For N& = 1 To UBound(VA):  .Cells(N).Value = VA(N, 1):  Next
    End With
End Sub 


Do you like it ? So thanks to click on bottom left star icon « Add Reputation » !