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