Макрос для копирования и вставки ячейки для поиска смещения

Question

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

Когда номер запаса вводится в столбце 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

Любая помощь будет принята с благодарностью!