error in activecell.offset when i open userform

Hi,

I've created a userform but i can't make it work. I'm having 2 dificulties.

First - I'm inserted date in the format "dd-mm-yyyy" but it migrates to the worksheet "mm-dd-yyyy"

Second - When i Run macro in the VBA menu, it works well, but if i close the VBA and open the userform form the selection button i get a run time erro '1004' in this line of code:
ActiveCell.Value = txtprospect.ValueI send the form in attach to see if anyone can help me.

Thanks