Needing a code to be able to do running totals for multiple cells.

Good Day,

I am doing a daily input sheet for charges & settlements. Rather then having two sheets linked together, One with daily input (one column for each day of the month) and the other sheet linked to daily input sheet for month-to-date totals automatically updated with each new daily input.

I have found a "worksheet_change" code which helps with one cell input to another cell running total, but I need a code for multiple cell inputs to correspond to their own individual running totals.

here is what I found....

Private Sub worksheet_change(ByVal Target As Range)

If Target.Address(0, 0) <> "B15" Then Exit Sub

With Range("C15")
.Value = .Value + Range("B15")
End With

End Sub

What this does is if I input into cell B15, cell C15 will have a running total of the inputs put into cell B15. This would be for the daily inputs. So for instance, May 1st I input $100 into cell B15 and cell C15 is $100 and on May 2 I input $200 into cell B15 and cell C15 becomes $300 for the running total.

Since I can't have multiple worksheet_change codes within one worksheet, how can I add code or adjust the code so that my inputs for different categories will have their own corresponding running totals?

I have attached my worksheet, I want to do a running total for each row: Rooms occupied, revenue rooms, house use rooms, complementary rooms, gst,pst,mrdt, debit,master card, visa, american express, cash and what ever running total rows I may have on the sheet.

Thank you for your time.

Thank you so much, with some minor adjustments, this works great. Again, thanks.

Is there any way that running totals can be done with a formula in the cell, rather than a manual input? example, the 3 taxes (MRDT,PST & GST) if I used a formula for each tax gst.... =sum(B15:B20)*.05 can this formula total be automatically updated daily in MTD column instead of a manual input?