复制并粘贴单元格以补偿查找的宏

Question

我似乎找不到想要做的正确代码。我为我们的商店在excel中设计了一个非常基本的POS类型系统：

在A列中键入库存编号时，将使用“索引和匹配”公式填充B，C，D和E列。

当我按下现金/卡/支票按钮时，Excel复制信息并将其粘贴到另一张纸上，然后重置表格。

一切正常。但是，当我按下按钮时，我也想让Excel复制顶部的日期和时间，在“库存”表的A列中搜索库存编号，然后将其粘贴到I列中（售出日期）的所有相关单元格。

我什至不知道该如何开始。以下是该按钮的当前代码。它虽然不漂亮，但却可以完成工作：

Sub CASH()
Range("F19").Select
ActiveCell.FormulaR1C1 = "CASH"

Application.ScreenUpdating = False
Dim copySheet As Worksheet
Dim pasteSheet As Worksheet

Set copySheet = Worksheets("Sale")
Set pasteSheet = Worksheets("Sales")

copySheet.Range("A1:F20").Copy
pasteSheet.Cells(Rows.Count, 1).End(xlUp).Offset(3, 0).PasteSpecial 
Paste:=xlPasteValuesAndNumberFormats, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
pasteSheet.Cells(Rows.Count, 1).End(xlUp).Offset(-19, 0).PasteSpecial 
Paste:=xlPasteFormats, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False

Application.CutCopyMode = False
Application.ScreenUpdating = True

Application.Goto Reference:="Default"
Selection.Copy
Range("A2").Select
ActiveSheet.Paste
Application.CutCopyMode = False
Range("A2").Select
End Sub

任何帮助将不胜感激！