使用input框find一个单元格，然后从另一个input框中减去vba右侧的单元格

我正在创build一个简单的电子表格来pipe理库存。 通过使用input框查找列A中的零件号（这是一个零件号），然后使用另一个input框从find的单元格右侧的单元格中减去在第二个input框中input的数字。 （这是库存数量）。 我是vba新手，所以要耐心等待。 这是我迄今为止。 我可以find零件号码，但我坚持如何减去数量。

Sub Find_First() Dim FindString As String Dim Bog As Range FindString = InputBox("Scan Barcode Or Enter Part Number") If Trim(FindString) <> "" Then With Sheets("Inventory").Range("A:A") Set Rng = .Find(What:=FindString, _ After:=.Cells(.Cells.Count), _ LookIn:=xlValues, _ LookAt:=xlWhole, _ SearchOrder:=xlByRows, _ SearchDirection:=xlNext, _ MatchCase:=False) If Not Rng Is Nothing Then Application.Goto Rng, True Else MsgBox "Part number not found" End If End With End If End Sub