Hola equipo, saludos ,

tengo una pregunta espero me puedan ayudar
tengo este codigo 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

  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