I need help to create an Inventory sheet with a running balance and use a barcode scanner.

Thankyou.

That means that we can use the change event Macro.

Right Click on the Sheet Name at the bottom of excel and Select View Code

Delete Everything in the module that opens

Paste this in the module and close it.

Good Luck

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column <> 13 Or Target.Cells.Count > 1 Then Exit Sub
Application.EnableEvents = False
On Error Resume Next
Set Z = Columns(3).Find(Target.Value, LookIn:=xlValues, Lookat:=xlPart)
If Z.Value = Target.Value Then
Cells(Z.Row, 4).Value = Cells(Z.Row, 4).Value - 1
Target.Value = ""
Else
MsgBox "Scanned Item Not Found", vbOKOnly
End If
On Error Resume Next
Application.EnableEvents = True
End Sub