If your object is to copy each 9th cell from the bottom up to another column
on the same row +1, try this

Sub copyevery9thfrombottomup()
mc = "q"
For i = Cells(Rows.Count, mc).End(xlUp).Row To 3 Step -9
Cells(i, mc).Copy Cells(i + 1, "H")
Next i
End Sub

--
Don Guillett
Microsoft MVP Excel
SalesAid Software

"Darius" wrote in message
...
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