Det går inte med hjälp av formler.

Du måste använda ett makro. Dessutom den vidrigaste formen av makron- händelsehanterare. Det går att göra väldigt fel...

Men om du är villig att ta den risken så:

Högerklicka på fliknamnet (typ blad1) och välj:
Visa kod

Klistra in något i den här stilen

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address <> "$B$1" Then Exit Sub
Range("A1").Value = Range("A1").Value + Target.Value
End Sub

borde ha lite felhantering också. men det får du fixa själv.
Stäng kodeditorn och testa att skriva saker i B1