查找多个单词并将其粘贴到不同的工作表中

我目前使用下面的代码来查找多个值，然后复制/粘贴到另一个表。 这个代码的目的是从庞大的数据集中检索一个基因列表（小字）。

此代码仅适用于表3列A（以A2开头）中的一个基因列表（一个小关键字列表）。 所有从庞大数据集（存在于表1中）中检索的数据都被复制到表2中。

现在我有6个基因列表（6个小关键字列表）。 我必须为所有这些基因列表制作6张单独的表格。 请告诉我这个问题的代码。

Sub OrderFinder() Dim srchLen, gName, nxtRw As Integer Dim g As Range 'Clear Sheet 2 and Copy Column Headings Sheets(2).Cells.ClearContents Sheets(1).Rows(1).Copy Destination:=Sheets(2).Rows(1) 'Determine length of Search Column from Sheet3 srchLen = Sheets(3).Range("A" & Rows.Count).End(xlUp).Row 'Loop through list in Sheet3, Column A. As each value is 'found in Sheet1, Column B, copy it too the next row in Sheet2 With Sheets(1).Columns("B") For gName = 2 To srchLen Set g = .Find(Sheets(3).Range("A" & gName), lookat:=xlWhole) If Not g Is Nothing Then nxtRw = Sheets(2).Range("B" & Rows.Count).End(xlUp).Row + 1 g.EntireRow.Copy Destination:=Sheets(2).Range("A" & nxtRw) End If Next End With End Sub