Excel - vba ventana para insertar fecha

Hola , soy nuevo en el foro
espero me puedan ayudar, nose mucho de programación,
tengo este código que me pone la fecha actual, mas lo que requiero es que se abra una ventana y me pida la fecha a capturar,

espero me puedan ayudar, anexo la parte del código donde me pone la fecha.

On Error Resume Next
ultima = ActiveSheet.Columns("P").Find("*", _
searchorder:=xlByRows, searchdirection:=xlPrevious).Row
Cells(ultima + 1, 16).Value = Date
Cells(ultima + 1, 16).Copy

ultima = ActiveSheet.Columns("O").Find("*", _
searchorder:=xlByRows, searchdirection:=xlPrevious).Row
ultimados = Cells(ultima, 16).Activate
Range(Selection, Selection.End(xlUp)).Select
ActiveSheet.Paste


Saludos y espero me puedan ayudar

Esto te sirve para pedir una fecha:


Saludos.
\\//_

me funciono de maravilla, realmente se lo agradezco