运行时错误1004，用于根据一个标准将数据从一个表复制到另一个表

Question

我需要在K-Q列中循环超过2k行，当我找到匹配时，从同一行复制H-J中的单元格并粘贴到另一张表格中。

数据在All Tests List表中，我需要复制到Cancer sheet。

I匹配的标准是癌症表中的单元格V2。我的标题位于两张纸的第3行。我一直得到＆＃34;运行时错误1004＆＃34;并且无法弄清楚我哪里出错了。

这是我的代码：

Sub create_cancer_list()

Dim specialty As String
Dim lastrowi As Integer
Dim i As Integer 'row counter

Sheets("Cancer").Range("v4:x4000").ClearContents

specialty = Sheets("Cancer").Range("v2").Value
lastrowi = Sheets("All Tests List").Range("k10000").End(xlUp).Row

For j = 4 To lastrowj
 Sheets("All Tests List").Select
  If Sheets("All Tests List").Range(Cells(i, "K"), Cells(i, "Q")) =   specialty Then
      Sheets("All Tests List").Range(Cells(i, "H"), Cells(i, "J")).Copy
       Sheets("Cancer").Select
       Range("v10000").End(x1up).Offset(1, 0).Paste 
       Sheets("All Tests List").Select
       End If

Next j

End Sub