Your copy/paste syntax is incorrect

Sub copyPaste()

For j = 3288 To 3 Step -9

Cells(j, 17).Copy
Cells(j + 1, 7).Select
ActiveSheet.Paste

Next j

End Sub

--
If this helps, please remember to click yes.


"Darius" wrote:

copy content of Q3 and Paste it to H4
copy content of Q12 and Paste it to H13
.
.
.
copy content of Q3288 and Paste it to H3289

what my below program doing wrong for above job?

Sub copyPaste()
Dim j As Long

For j = 3288 To 3 Step -9
R(j)C(17).select.copy
R(j+1)C(7).select.paste
Next j
End Sub

thanks for your help