Adding amounts automatically per cells

[cathedralbc]

I am working on a worksheet were I need to constantly add amounts to one single cell, I am not interested in breaking down the specifics of the amounts, I just need a total amount per cell, what I was doing was constantly using my calculator each time I encountered the amount for the specific cell until I got the total. My question is: Is there any formula where I can just input the amount, and the formula would automatically take the previous amount in that same cell and add the new input? that way I can just place the amounts as they come in and the formula will take care of the totals by itself instead of me having to do it automatically. Thank you

 

[niceguy_jay]

copy paste this code to the worksheet (and not module) where you want to add this functionality

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
i = ActiveCell.Value
j = InputBox("Enter the value to add")
On Error GoTo label1
ActiveCell.Value = j + i
label1: j = 0
End Sub

 

[cathedralbc]

it works very well that way, thank you so much!