Har ett makro som gör det du frågar efter, dock inte summering/radering med enter utan med en knapp.
En Inputcell som sköter både minus/plus samt nollställs vid summering
En Kapitalcell för totalen.
Range("I3").Select
Selection.Copy
Range("I6").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("I10").Select
Application.CutCopyMode = False
Selection.ClearContents
Range("I1").Select