How to insert multiple rows at once at different locations

I wrote some code for a task I have, but wanted to see if anyone has any ideas on how to speed it up.

Column A has a timestamp in each row in milliseconds from midnight (1/1000 of a second). What I'd like to do is insert a blank row where there's a gap in column A of more than 1-second (1000 milliseconds), so that in the end, there's a total of 24000 rows - both original, with data, as well as complete blanks, without data. Sometimes there is a gap of many more than one second, so more than one blank row will need to be inserted - exactly equal to the number of the missing seconds. I am no programmer by any means, so the code I wrote basically goes row by row and inserts a row where ever is necessary, one location at a time. Is there a way to tweak the code so that it essentially remembers how many rows to insert at needed locations, and then inserts them all at once? Or something similar to speed the process up? I think that may be faster than doing it one location at a time as it does now. Thank you.

Here's what I've used:

Please Login or Register  to view this content.

Data Cleaner Sample 1.xlsm