請教為何宣告錯誤???

[foxcat99]

1.Dim m As Single
2.Dim n As Double
3.Dim q As Double
4.Sub 擷取winner和losser()
5.For i = 2 To 248
6. m = Sheets("整理").Cells(i, 4)
7. For j = 1 To m
8. n = Sheets("整理").Cells(i, 3) + j
9. q = Sheets("整理").Cells(i + 1, 3) + 1 - j
10. Sheets("yes").Range("A(n):H(n)") = Sheets("7090").Range("A(n):H(n)")
11. Sheets("no").Range("A(q):H(q)") = Sheets("7090").Range("A(q):H(q)")
12. Next j
13.Next i

請問一下為何第10,11列程式為何會執行錯誤????
我按說明......說是要宣告陣列??......
可是之前寫成sheets("整理").cells(i,4)=sheets("7090").cells(i,4)就沒問題
但是寫成 .cells(q,4) .cells(q,4)就不行
為什麼換成另一個變數就不行????
請前輩指導一下小弟的錯誤........
感激不盡.............