cut rows from worksheet based on cell isdate value

I am using a shared workbook with info in Columns A to S.
Info in rows usually at least 600 rows used.

Current Date is typed in Column A4 to A600 when task is complete for data
in Row 3.
So may have at random, Current Date in many Rows in Colums A .

Would like a function or macro to scan down the Column A and cut out the
complete row
and insert past into another shared workbook .


Rather than having to sort the worksheet by Coulmn A and cutting out all of
the
Rows of completed data, and then pasting into another shared workbook.
Several
times aday ..


A B C D E
1 comp part part part material
2 date number rev qty number
3
4 10/18 123456 A 45 913-104R



thanks
rod