Da moraš da sam obezbediš čuvanje datuma. Ako hoćeš da ti se to radi automatski treba uneti kodu u događaj Worksheet_Change
Private Sub Worksheet_Change(ByVal Target As Range)
'Unosi datum u susednu celiju za izmenu opsega A1:A5
On Error Resume Next
' Opseg u kome funkcioniše unos
Set prostor = Range("A1:A5")
Set isect = Application.Intersect(Target, ActiveSheet.Range("A1:A5"))
If Not (isect Is Nothing) Then
Target.Offset(ColumnOffset:=1).Value = Date
End If
End Sub
Presretanje sistemskih događaja je osetljiva izaziva i neke sporedne efekte pa ovo neće dobro raditi npr. ako brišeš opseg a1:B5
Dva u dva ide jednom ako možeš da ga ućuškaš