loop with vba

[asdfasdf]

I have about 3000 rows of data in column A. At every 50 cells, i need to get one cell and copy it onto its own row - so cell A1, A51, A101 etc need to be copied to cell C1, D1, E1. I want to loop it because of the amount of data but have no idea at all how to do this

 

[Weaver]

try:

Sub everyFifty()
    lastrow = Cells(Rows.Count, 1).End(xlUp).Row
    x = 1
    Do
        Cells(1, x + 1).Value = Cells(x * 50 + 1, 1).Value
        x = x + 1
    Loop While x * 50 + 1 < lastrow
End Sub

HTH

 

[VoG]

Hello and welcome to MrExcel.

Try this

Sub test()
Dim LR As Long, i As Long, j As Long
j = 2
LR = Range("A" & Rows.Count).End(xlUp).Row
For i = 1 To LR Step 50
    j = j + 1
    Cells(1, j).Value = Range("A" & i).Value
Next i
End Sub