Private Sub Worksheet_Change(ByVal Target As Range)If Target.Address(0, 0) = "A1" ThenIf VBA.IsNumeric([a1]) ThenApplication.EnableEvents = False[a2] = [a2] + [a1][a3] = [a3] + [a1]Application.EnableEvents = TrueEnd IfEnd IfEnd Sub