Insert Rows on Criteria and Copy content to Specific Cells in New Rows(Tables)

Hello All,

I have two problems that I am trying to address in this example.

I am inserting new rows based on the Countif function in column G. What I have now correctly identifies column G and adds the number of Rows it says. That much is good...sort of. What I need however is to calculate (G -1). That is, I need to have however many rows in the Countif including the current one. Dense I am it would appear but I just can’t get it done. The closest did what I wanted but any countif of 1 created an error.. now I can't even remember how I did that!

The second thing that I need is to copy the contents of Column A only to the new rows.

Thanks
Scott

For your viewing pleasure:Add a row.xlsm

So close yet so far away. I had to have been some silly symbol away from having it.

Anyway, It works well. At first, for some reason, it wouldn’t process any CountIif value of 1 as I had encountered except it just ended the sub when it encountered the first ‘1’ rather than giving an error, so I played with it, eventually ended back up with your original code and it worked. Mysteries never end. Anyway, it plays well with dates and formats and copies multiple disconnected columns as it should.

Thank You for saving me my last strand of hair… I’ll need it for the next problem
Scott