Copy Rows To Predefined Sheet Based on Date Range Using Form or Message Box

pardon me if i'm wrong. not good with codes. should zbor's code have an INT to it so that an entry of 21st Dec 2012 12:45 pm be also taken in if user inputs:
20 Dec 2012
to
21 Dec 2012
so:

           If Int(.Range("M" & i).Value) >= DateValue(DateLokup.TextBox1.Value) And Int(.Range("M" & i).Value) <= DateValue(DateLokup.TextBox2.Value) Then
End Sub