Option Explicit
Private Sub Worksheet_Selectionchange(ByVal Target As Range)
If Not Intersect(Target, Range("D7:D32")) Is Nothing Then
If Target = "" Or Len(Target) > 14 Then Exit Sub
Cells(Target.Row, 4) = Target.Value & Format(Date, " / ILINO / yyyy")
End If
End Sub