Excel Macros

I have a spreadsheet which is 10000 rows long. I need to insert a blank row between the first 5000, then cut/paste the second 5000 into these blank rows. In other words I need to interleave the date. Any suggestions