Can I do the following: Cell1+Cell2=NewCell1?

[spk4life]

I want to be able to have somewhat of an automatic calculator. I want to keep score of certain data into only one cell. For example.

Cell 1 starts off at 0. When I input 5 on cell 2, it adds it to cell 1 and cell 1 becomes 5. If I then input 10 on cell 2, it would add it to cell 1 again and cell 1 would be 15. Cell 2 would stay blank all the time adding whatever number I input, into cell 1.

 

[My Aswer Is This]

I did discover a way to return the cell value in column 3 back to nothing after adding the values.
Try this:

Private Sub Worksheet_Change(ByVal Target As Range)
On Error GoTo J
Dim Lastrow As Integer
Lastrow = Cells(Rows.Count, "A").End(xlUp).Row

    If Target.Column = 3 And Target.Row < Lastrow + 1 And Target.Value > 0 Then
        Target.Offset(0, -1).Value = Target.Offset(0, -1).Value + Target.Value
        Target.Value = ""
    End If

Exit Sub
J:
MsgBox "Invaid Value"
End Sub