Поместите макрос ниже на лист (в Visual Basic), на котором будут производится вычисления:
Код:
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If ActiveCell.Row = 2 And ActiveCell.Column = 2 Then Exit Sub
Cells(1, 2) = Cells(1, 2) + Cells(2, 2)
End Sub
После изменения содержимого и выхода из ячейки B2 (в любую сторону) содержимое ячейки B1 будет изменено на то число, которое ввели.
