Trouble creating macro for one blank row above with copy paste data

Hello

I'm experienced in Excel, but novice in VBA. The task I have in front of me is that I have a very large spreadsheet (28,000 +rows) that has data that was exported from a legacy system that we no longer have. It has data in columns A thru G. I must get this data prepped to have ready for importation into the new system. What I'm trying to do is copy the data in cell A and cell B, everytime the value in column D = 1, and insert one blank row above and copy the values from cell A and cell B to cell A and cell B on the newly created row.

Below is a picture of what I'm trying to capture:

sample image.png

I thought that a macro would be a fairly easy way to do this, but it's proven challenging for me to write. Here is what I attempted using the macro recorder:

Please Login or Register  to view this content.

Any and all help will be greatly appreciated.

Please Login or Register  to view this content.

Have a look here.

http://www.excelforum.com/excel-prog...very-slow.html

jolivanes and p24leclerc thank you for responding. both of your solutions worked brilliantly! i greatly appreciate the prompt response!

I assume you noticed that the code in post #2 works on cell change and not on the numbers in Column D.

Good luck