Date Picker from user form

You can display the form like this

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Target.Count > 1 Then Exit Sub
    If Target.Address= "$A$1" Then frmDTP.Show
 End Sub

This line will add the date

ActiveCell.Value=Me.DatePicker1.Value