4Андрей Il этот Event возникнет в том числе и просто при перемещении по листу с помощью стрелок. Так как вопрос был про "клетку над которой ..." то Target.Offset(1,0).Value="SOME VALUE"
4acids При нажатии мыши на что ? на какую-нить свою кнопку или на ячейку в книге ?

тогда как написал Андрей Il
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Target.Offset(1,0) .Value = "Some value"
End Sub

так, давайте по шагам
1. На ярлыке листа ( которой внизу и на котором обычно написано Лист1) жмем правую педаль и выбираем "Исходный текст"
2. Смотрим в правую часть окна и сверху видим два списка - "General" и "Declaration"
3. Из General выбираем worksheet а из 2 списка Selection_Change, впрочем он т.е. SelectionChange , должен появиться автоматически
4. В появившемся обработчике Selection_Change пишем одну строку
Target.Offset(1, 0) = "Hello"
Должно получиться следующее
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Target.Offset(1, 0) = "Hello"
End Sub
5. Жмем alt-f4
6. Начинаем движение по листу.