Используйте Excel VBA для сравнения и выполнения функции

Question

Я делаю проект для своего небольшого ресторана в Excel VBA, я разработал бланк квитанции и перевода для продажи покупателям или передачи товаров в другой отдел (отделы: магазин, кухня и пункт продаж).У меня есть лист "Inventory", который содержит все товары из всех отделов, их цены и доступные количества.

Однако у меня возникают проблемы с автоматическим обновлением доступных количеств при нажатии кнопки «Закрыть и сохранить» или «Печать», т. Е. Когда товары проданы или переданы.

Вот кодЯ пытался.

Sub updateinventory()
Dim invlastrow, reclastrow As Long
Dim ws1, ws2 As Worksheet
Dim itemName, itemQty, a, b

Set ws1 = ThisWorkbook.Worksheets("Inventory")
Set ws2 = ThisWorkbook.Worksheets("Receipt")
invlastrow = ws1.Cells(Rows.Count, 1).End(xlUp).Row
reclastrow = ws2.Cells(Rows.Count, 1).End(xlUp).Row

 'MsgBox Cells(reclastrow, 3).Value


    Do While Cells(invlastrow, 3).Value <> ""
    itemName = Cells(invlastrow, 3).Value

        For b = 19 To reclastrow
            If itemName = Cells(reclastrow, 1) Then

            MsgBox (itemName)
             itemQty = Cells(invlastrow, 8).Value
             itemQty = itemQty - Cells(reclastrow, 3)
        End If
         Next b
        'MsgBox (itemQty)

     End If
Next a    
End Sub