Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("A2:A65535")) Is Nothing Then
ActiveSheet.Unprotect
Cells(Target.Row, 2).Value = Format(Date, "d mmm yyyy")
Cells(Target.Row, 6).Value = Format(Time, "hh:mm:ss")
ActiveSheet.Unprotect
End If
End Sub