Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim cel As Range, rng As Range
If Not Intersect([A14:A65000], Target) Is Nothing And Target.Count = 1 Then
Application.EnableEvents = False
Set rng = Range("A14:A" & Range("A65000").End(xlUp).Row)
For Each cel In rng.SpecialCells(xlCellTypeVisible)
If cel <> "" Then
Cells(cel.Row, "AE") = Date
End If
Next
Application.EnableEvents = True
End If
End Sub