Snasui Excel Forum

Code: Select all

Sub CopyData()

Dim i As Single, j As Single, LastRow As Single
For i = 2 To 11 Step 3
    Cells(i, 1).Select
    Selection.Copy
    Cells(i - 1, 5).Select
    ActiveSheet.Paste

Next i

End Sub

Code: Select all

Sub CopyData()

Dim i As Single, j As Single, LastRow As Single

For i = 1 To 11


    Cells(((3 * i) + 1) - 2, 1).Select
    Selection.Copy
    Cells(i, 5).Select
    ActiveSheet.Paste
    
Next i


End Sub