Private Sub Worksheet_Change(ByVal Target As Range)
    If Not Intersect(Target, Range("B1")) Is Nothing Then 'если пересечение изменяемого диапазона и В1 не пусто
        If IsNumeric(Range("B1")) Then 'если в В1 число
            Application.ScreenUpdating = 0 'отключаем обновление экрана
            Application.EnableEvents = 0 'отключаем реакцию на события
            Range("A1") = Range("A1") + Range("B1") 'А1 равно тому, что было в А1 плюс В1
            Range("B1").ClearContents 'стираем В1
            Range("B1").Select 'выделяем В1 для нового ввода
            Application.EnableEvents = 1 'включаем реакцию на события
            Application.ScreenUpdating = 1 'включаем обновление экрана
        End If
    End If
End Sub