Код VBA для копирования данных строки с одного листа на существующий лист с такой же ячейкой ссылки

Question

Я довольно новичок в кодировании VBA. Я хотел бы помочь в разработке кода для копирования строки данных с одного листа на существующий лист, имя которого совпадает с именем ячейки ссылки. Вот описание того, чего я надеюсь достичь.

Код должен копировать строки в диапазоне A2: G251 листа с именем «MasterDailyPressureCheck».

Код должен вставить всю строку данных в следующую пустую строку рабочего листа с именем рабочего листа = значением, найденным во втором столбце этой строки.

Код должен копировать и вставлять только строки, содержащие данные в 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

Этот код выполняется до конца, но на самом деле он не копирует и не передает данные. Я должен ссылаться на неправильную ячейку столбца, но я не знаю, как обновить этот код для ссылки на правильный столбец.