Private Sub Worksheet_Change(ByVal Target As Range)
    Application.EnableEvents = False 'ereignissausschaltung um einen cirkelbezug zu verhindern
    If Selection.Count < 2 Then 'abfrage auf beliebige mehrfach selectierungen
        If Target.Column = 1 And Target.Row = 2 Then 'abfrage auf spalte A bzw dessen index 1 und zeile 2 bzw dessen index 2
            Range("B2") = Range("B2") + Range("A2") 'addierung der werte
            Range("A2").Clear 'loeschen der eingabezelle
        End If
    End If
    Application.EnableEvents = True 'ereignisseinschaltung
End Sub  

Option Explicit

Private Sub Worksheet_Change(ByVal Target As Range)
    Application.EnableEvents = False
    If Target.Column = 4 Then
        Target.Offset(0, -1).Value = Target.Offset(0, -1).Value - Target.Value
        Target.Value = ""
    End If
    Application.EnableEvents = True
End Sub