VBA代码可将行数据从一张工作表复制到与参考单元格相同的现有工作表

Question

我是VBA编码的新手。我想要一些帮助来开发代码，以将一行中的数据复制到与参考单元格名称相同的现有工作表中。这是我希望完成的描述。

该代码应该复制称为“ MasterDailyPressureCheck”的工作表的A2：G251范围内的行。

代码应将整个数据行粘贴到工作表的下一个空行中，该行的工作表名称=在该行的第二列中找到的值。

该代码仅应复制并粘贴从列表顶部开始在B2：B251中具有数据的行。

Sub testTransfer()
Dim lastrow As Long
Dim erow As Long
Dim SpecimenID As String
lastrow=Worksheets("MasterDailyPressureCheck").Cells(Rows.Count,1).End(xlUp).Row
Worksheets("MasterDailyPressureCheck").Activate
For i = 2 To lastrow
If Cells(i, 1) = SpecimenID Then
Range(Cells(i, 1), Cells(i, 7)).Copy
Dim p As Integer, q As Integer

p = Worksheets.Count

For q = 1 To p

If ActiveWorkbook.Worksheets(q).name = SpecimenID Then
Worksheets(SpecimenID).Select
End If
Next q

erow = ActiveSheet.Cells(Rows.Count, 1).End(xlUp).Offset(1, 0).Row

ActiveSheet.Cells(erow, 1).Select

ActiveSheet.Paste
End If
Worksheets("MasterDailyPressureCheck").Activate

Next i

Application.CutCopyMode = False
End Sub

此代码始终运行，但实际上并没有复制或传输数据。我必须引用错误的列单元格，但我不知道如何更新此代码以引用正确的列。