Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Target.Row >= 3 And ((Target.Column = 1) Or (Target.Column = 15)) Then
Target = Date
Target.NumberFormat = "dd/mm/yyyy"
Target.Offset(0, 1).Select
End If
End Sub