Keeping a running total for Liquor Inventory

Ok, so here is the problem.

I need to keep track of how much liquor I have in my store room. Liquor gets issued to the bar, banquets and the pool. In those columns I need those numbers to subtract to the current inventory total and blank out when I open up the workbook again. In the Inventory IN column I need that number to add to the current inventory total and blank out when i open it up again so i always have a current on hand number of the amount of liquor i have in the store room....soooo frusterating im close to getting it....im in the view code portion trying to write the correct code....please help! :-)

Cheers!

Attached is the form i made....

I would change your sheet in a couple ways. One - have the inventory column actively change as you change/issue the bottles to specific places. Two have a column that has the ending inventory / opening inventory value stored.

The following code fires when the workbook is closed - it goes in the Workbook module. It updates the opening inventory to the closing inventory. (I put it in column Q). It then clears our each of the locations daily issuance and incoming inventory.

Private Sub Workbook_BeforeClose(Cancel As Boolean)
Dim invRow As Range, lastRow As Long, invTot As Range
lastRow = Cells(Rows.Count, 13).End(xlUp).Row
Set invRow = Range("m11:m" & lastRow)
For Each invTot In invRow
    invTot.Offset(0, 4) = invTot
    invTot.Offset(0, -1).ClearContents
    invTot.Offset(0, -3).ClearContents
    invTot.Offset(0, -5).ClearContents
    invTot.Offset(0, -7).ClearContents
    invTot.Offset(0, -9).ClearContents

Next
End Sub

My version is attached.

Thank you thank you thank you! Thats exactly what i was looking for...your suggestion works better too!!