Copy from one cell to another using VBA

[lar48ry]

How do I copy and paste the following (using VBA):

Cell A1 to Cell C2
Cell A2 to Cell C7
Cell A3 to Cell C12

until all cells in column A are copied into every 5th cell in Column C after Cell A1 is copied to Cell C2?

Thank you,
Larry

 

[VoG]

Try

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
    Range("C" & j).Value = Range("A" & i).Value
    j = j + 5
Next i
End Sub

 

[Joe4]

Perhaps something like this:

Sub MyLoop()
 
    Application.ScreenUpdating = False
    
    Dim i As Long
    For i = 1 To Range("A1").End(xlDown).Row
        Cells(i * 5 - 3, "C") = Cells(i, "A")
    Next i
    
    Application.ScreenUpdating = True
        
End Sub

 

[lar48ry]

Thanks VoG,

It worked like a charm.

Thanks Joe4,

I didn't try this one because the first one worked so well. I'll give it a try when I need to try this across multiple workbooks.

I appreciate the rapid response to this situation. I kept racking my brain but couldn't figure out the the step through requirements.

Larry