Boa Noite!
Veja se este código te ajuda.
Cole deste jeito no código da planilha que pretende usar e faça as alterações em (plan1) e celula (I1)
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Alteração = False Then 'se mudar para true nao faz nada
On Error Resume Next
Sheets("Plan1").Range("I1").Value = "Última Alteração > > > " & Format(Date, _
"dd/mm/yyyy") & " " & Format(Time, "hh:mm:ss")
End If
End Sub