Sub Copy_By_Three()
Dim i As Integer
For i = 3 To 30 Step 3
Cells(i, 1).Copy Destination:=Sheets(2).Cells(i, 1)
Next
End Sub
Try something like this:
This script will copy values from Active sheet to sheet (2)
It will do this 30 times
Code:Sub Copy_By_Three() Dim i As Integer For i = 3 To 30 Step 3 Cells(i, 1).Copy Destination:=Sheets(2).Cells(i, 1) Next End Sub
It worked! Thank you very much