Проблемы со вставкой всей строки

Question

Я пытаюсь вставить строку информации enire в следующую доступную строку, но у меня продолжают появляться ошибки из-за неправильного написания Rows(lastrow +1, 1).EntireRow.Paste. Пожалуйста, дайте мне знать, как я могу правильно выполнить это действие.

Private Sub CommandButton1_Click()

    Dim myValue As String
    myEmp = InputBox("Search for an employee by last name")
    Range("B3").Value = myEmp

With Sheet7
    Range("B:B").Select
        Set Row = Selection.Find(What:=myEmp, After:=ActiveCell, _
        LookIn:=xlFormulas, LookAt:=xlWhole, SearchOrder:=xlByRows, _
        SearchDirection:=xlNext, MatchCase:=False, SearchFormat:=False)
    Row.EntireRow.Copy

End With

Worksheets("Employee Reports").Activate
    Dim lastrow As Long
    lastrow = Range("A65536").End(xlUp).Row
    Rows(lastrow + 1, 1).EntireRow.Paste


End Sub
Private Sub Workbook_Open()

Application.EnableEvents = False
Worksheets("Sheet3").Range("A4:A20").Value = ""

End Sub

Answer 1

Private Sub CommandButton1_Click()

    Dim myValue As String
    myEmp = InputBox("Search for an employee by last name")
    ActiveSheet.Range("B3").Value = myEmp

    Dim lastrow As Long
    lastrow = Worksheets("Employee Reports").Range("A65536").End(xlUp).Row

    With Sheet7
        Dim rw As Range
        Set rw = .Range("B:B").Find(What:=myEmp, After:=.Range("B1"), _
        LookIn:=xlFormulas, LookAt:=xlWhole, SearchOrder:=xlByRows, _
        SearchDirection:=xlNext, MatchCase:=False, SearchFormat:=False)

        If Not rw Is Nothing Then
            rw.EntireRow.Copy Worksheets("Employee Reports").Cells(lastrow + 1, 1)
        Else
            MsgBox myEmp & " Not Found in Range"
        End If
    End With
End Sub