(Solved) – VBA copy paste loop and go to next avaible cells


i need to copy values from a cell in column b to 4 cells in column d and then jump down to the next cell in b and copy the value to the next 4 cells in column d.

I tried this code

Sub copytest() 
    Dim i As Long
    For i = 1 To 394 ' i have a total of 394 cells 
        Range("B" & i).Copy Range("d1:d4") 
    Next i 
End Sub

Leave a Reply

Your email address will not be published. Required fields are marked *