Во! я правильно догадался. И еще у меня сомнение в том, что Вы будете менять по одной ячейке всегда. Поэтому заранее сделал обработку групповых изменений
[vba]Код
Private Sub Worksheet_Change(ByVal Target As Range)
Dim int_ As Range, cc_ As Range
Set int_ = Intersect(Target, [Таблица1])
If Not int_ Is Nothing Then
Application.ScreenUpdating = 0
Application.EnableEvents = 0
For Each cc_ In int_
If cc_.Column <> 6 Then
Cells(cc_.Row, 6) = Now
End If
Next cc_
Application.EnableEvents = 1
Application.ScreenUpdating = 1
End If
End Sub
[/vba]