Uma obs, se o Valor digitado for o mesmo que já estava, por padrão não é feito recalculo, então a data e horário permanecem os que estavam da primeira alteração e/ou digitação.
Código: Selecionar todos
Private Sub Worksheet_Calculate()
Dim myRange As Range
Dim CellAddr As String
Dim sValor As String
Dim sLin As String
sValor = ActiveCell.Offset(-1, 0)
sLin = ActiveCell.Offset(-1, 0).Row
Set myRange = Sheets("Plan1").Range("A" & sLin)
'Se o valor digitado for igual ao que já estava
'não é armazenado e colocado data e horário
If myRange.Value = sValor Then
CellAddr = CellAddr & "," & myRange.Address(0, 0)
End If
CellAddr = Mid(CellAddr, 2)
If Len(Trim(CellAddr)) <> 0 Then
Range(CellAddr).Offset(0, 2).Value = Now
End If
End Sub