Calculating a running total of ticket sales in VBA

[snowthedirtbub]

I'm trying to calculate a running total of ticket sales with 5 different groups (adult, youth, senior day, senior night, and child) to where once the number of tickets are bought it will update automatically. I enter the tickets in cells B5-B9 where it then calculates the amount due and the change due. I need to put the running total in cells B18-B22. I've been stuck on this for 3 hours now and any help would be appreciated.

 

[TrumpExcel]

Try this code. Put in the sheet where you need to do this. (Right click on sheet tab and click View Code. In the Project Explorer double click in the sheet's name and put this code)

Private Sub Worksheet_Change(ByVal Target As Range)
Dim Count As Long
On Error Resume Next


Select Case Target.Address
Case "$B$5"
Count = Range("$B$18").Value
Count = Count + Range("$B$5").Value
Range("$B$18").Value = Count

Case "$B$6"
Count = Range("$B$19").Value
Count = Count + Range("$B$6").Value
Range("$B$19").Value = Count

Case "$B$7"
Count = Range("$B$20").Value
Count = Count + Range("$B$7").Value
Range("$B$20").Value = Count


Case "$B$8"
Count = Range("$B$21").Value
Count = Count + Range("$B$8").Value
Range("$B$21").Value = Count

Case "$B$9"
Count = Range("$B$22").Value
Count = Count + Range("$B$9").Value
Range("$B$22").Value = Count




End Select
End Sub