Macro that inserts rows between cells that do not have the same first 5 characters

Hello,

I am trying to create a Macro that will look at a specific column and identify when the cell on top of the other cell no longer have the same input.

ex.

D
13 Orange
14 Orange
15 Orange
16 Apple
17 Apple
18 Banana
19 Banana

I would want two blank rows inserted in between 15 and 16 as well as 17 and 18.
Also the list I need to break into parts does not always have the exact wording as other cells, but still belong in one group so I was wondering if it could seperate the list based on the first 5 characters in cell.

Thanks

This was a good start; however, this code only inserted cells instead of entire rows and did not insert a cell only if the entire cell matched the next one, but I do not want it to insert rows that have the first 5 characters the same, only cells that have a different first 5 characters should insert 2 rows between them

Can you attach a sample with a before and after affect?

Please Login or Register  to view this content.

John Davis before.jpgJohn Davis after.jpg

I changed your coding so that it would look at column "G" the column that says Discription. I would like everything that starts with [Deflection] to be grouped together without breaks in between them which is why I would like the coding to just look at the first 5 characters to determine if the two rows should be inserted or not.

Thanks

.jpg's are hard to read. I meant attaching a file with some sample data. However, try this.

Please Login or Register  to view this content.

Awesome!!! This works. Thank you very much. Sorry about the jpg's, I am new to the forums and to Macros. I would also like to put a bottom border on the last row in each section now and also use =counta to count the items in each section in column "A" and place the count in column "A" in the cell below the section and bold that row. Any chance you could help with that too?

Thanks

That received an error '1004' saying that no cells were found. It still preformed the inserting of the two rows though.

Can you attach a sample file with some test data?