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 = 2 To 11 Step 3
    Cells(i, 1).Select
    Selection.Copy
    Cells(i - 1, 5).End(xlUp).Offset(1, 0).Select
    ActiveSheet.Paste
Next i
End Sub