Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address(False, False) = "A2" Then
Application.EnableEvents = False
With Range("B2")
.Value = .Value + Target.Value
End With
Application.EnableEvents = True
End If
End Sub
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 1 Then
Application.EnableEvents = False
With Target.Offset(, 1)
.Value = .Value + Target.Value
End With
Application.EnableEvents = True
End If
End Sub