为什么复制和粘贴错误的行

Question

VBA的新功能

我试图遍历一个表并复制包含名称的行。当我运行代码时，输​​出是我想要的代码下面的行。

Sub tblcopypast()

Dim Name As String
Dim tbl As ListObject
Dim i As Integer
Dim lastrow As Integer

Set tbl = ActiveSheet.ListObjects("Table1")
Name = ActiveSheet.Range("E1").Value
lastrow = tbl.ListRows.Count

For i = 1 To lastrow
    If tbl.Range(i, 1) = Name Then
    tbl.ListRows(i).Range.Copy
    ActiveSheet.Range("E5").PasteSpecial xlPasteValuesAndNumberFormats
    Application.CutCopyMode = False
    End If
Next

End Sub