Move Row in excel based on a date

I have the VB code figfured out for moving a entire row in excel from one sheet to another.. but i keep getting a miss match error. i am looking at a cell which i am putting a date into, so when there is a date in that cell, the row associated with that cell is cut, and pasted into the next sheet.. any ideas why i keep getting an error?
Thanks!!! Below is what i have.......

Please Login or Register  to view this content.

I don't know the reason, but it works if you change so If Target.Text > 1 Then