VBA Macro - Insert Rows based on different Column Value but Ignoring Blanks Cells

Hi,

I'm trying to correct my macro that would insert rows based on a value declared in a column.

Attached is a small sample of my worsksheet with the "before" and what the "after" should be.
So far the code I have:

Please Login or Register  to view this content.

Basically trying to insert rows to separate the different dates of each invoice in the sheet.

Since the string "INVOICE #" in Column A seems to be the only constant value, I declared that as the new value which the old value has to match, however if there's a better way feel free to point it out to me.

Problem when I run my code is that the macros stop inserting rows once it comes up with a blank cell in Column A, so rather than inserting a new row on every single unique order, it just stops at the 1st order.

Any help would be great, thank you.