With a bit more error checking ...
Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
Dim vContent, cell As Range
Set cell = Range("B2") ' set as required
' check if single cell is entered
If Intersect(Target, cell) Is Nothing Then Exit Sub
If Target.Cells.CountLarge > 1 Then Exit Sub
' check if numeric content
vContent = Target.Value
If Not IsNumeric(vContent) Then vContent = 0
' Direct Increment and clear source
Application.EnableEvents = False
cell.Offset(, 1).Value = cell.Offset(, 1).Value + vContent
Target.Value = ""
Target.Select
Application.EnableEvents = True
End Sub
Bookmarks