VBA - 查找，剪切和粘贴到另一张纸上

Question

我正在尝试为工具制作一个检入/退出系统。到目前为止，我有一个工作表，其中包含当前已检出的项目列表。该工作表中的列A是项目编号，列B是名称，列C是日期和时间。我想要的宏是，当有人输入他们想要检查IN的项目编号时，宏将找到他们在“项目输出”表上输入的数字，切割整行，并将其粘贴到“ checkout历史记录“第一行可用的表格。用户输入他们正在检入的号码的单元格是“接口”工作表上的单元格“E3”。这就是我到目前为止所拥有的。

Sub Checkin()
'
    Dim targetSh As Worksheet
    Dim i As Long
    For i = 1 To Cells(Rows.Count, "F").End(xlUp).Row
        If Cells(i, 6).value = Worksheets("Interface").Range("E3") Then
            Range(Cells(i, 1), Cells(i, 6)).Copy Worksheets("Items Out").Range("A" & Worksheets("Checkout History").Cells(Rows.Count, "A").End(xlUp).Row + 1)
        End If
    Next i
End Sub

这不起作用，我从另一篇文章中获取此代码，我尝试更改它以符合我的需要，但它不起作用，我可以在这里使用一些帮助。除非你真的想要，否则你不需要制作整个宏，我只需要帮助找到什么能让这个宏为我工作！