Hopefully a simple find and replace VBA script

[IronMountain]

I have the following data (before.png):

I would like to have a VBA script which runs through column A looking for a carriage return.
Upon finding one, it copies that entire row but only with everything PRIOR to the carriage return - it will make a new row for each iteration. It will then add a column which states NEW or ORIG for whether the row is new (as it contained a carriage return) or ORIG as it did not.

see after.png for results required.

I'm losing my hair on this one!!!

 

[Micron]

If you're pulling your hair out, you must have already written some code but it's not working for you. Reviewing that would be a good place to start. Or you can consider that the approach would be along the lines of:
- find the last row with data (e.g. 100)
- create a loop that will go from 100 to first non-header row
- test for each A column row for Chr(10) using Instr function
- if found, break the cell value into an array using Split function. If it has 3 elements then you want to insert 3 rows, or is this not possible?
- insert as many rows as there are array elements;
- - write array(0) to first inserted row, copy B:F to inserted row, write NEW to column G
- - write array(1) to next inserted row & rest as before
- - repeat as necessary
- loop then moves to the next row number & repeats

That may be a bit simplified. I usually uncover aspects not considered when describing an idea such as this.