Inserting Rows with vba. Error:Method 'Insert' of object 'Range' failed after few attempts

Hello All.

I have a basic VBA code that's supposed to take the highlighted cells, copy the entire row (or rows) and insert the same amount of new rows just below.

It seemingly constantly crashes with the error after several attempts, so I was unable to pinpoint the portion of the code causing this error.

Run-time error '-2147417848 (80010108)'
Method 'Insert' of object 'Range' failed


To make the situation even worse, is that after the debug window, the file freezes, and need to close the entire excel via Task Manager.

The code for the sub is attached below, and the basic file with only the below code is attached for your convenience. Would greatly appreciate any input and possible solution to this issue.

Thank you!!

Please Login or Register  to view this content.

When I go through Debug, the code that's highlighted is the actual insert procedure.

Please Login or Register  to view this content.

Can't make it fail ...

Tidied it up a bit and set up a test harness. Run it several hundred times without it failing. Seems to slow down initially for a while and then carries on quite quickly.

Please Login or Register  to view this content.