CurrentRegion.EntireRow.Delete (+ the next row)

All the code provided did not work as I need it to, but I really appreciate the time each of you put forth to help me out. I have enough to make my job easier each month so I am happy.

I have attached a sample spreadsheet along with my Macro Workbook with steps I take in this process. A lot of the code was recorded macros to begin with and the others were a combination of code people here on this forum helped with and from watching videos on Lynda.com.

If anyone wants to look through this mess and provide any tips, that would be great, but can survive with what I have so far.

Thanks again!

Originally Posted by abousetta

Using Leith's approach of setting the range first, try this instead of Sub DeleteGroups3()

Thank you so much. This works great and helps out my process tremendously. It is amazing how just 2 characters can make a difference in code. I'm down to just 3 macros to run with some minor issues to resolve.

What use to take me 2-3 hours to manually create these reports, now it appears I will be able do it in less than 10 minutes.

Although the programming side is a little beyond me right now to help others, the help I've received here has given me enthusiasm to help others. I will just have to watch for easier questions that I can answer.

Originally Posted by abousetta

Glad it all worked out. Just a side-note, you can usually compress some of your lines of coding by removing selecting and removing other redundancies that are generated during recording macros. This will also add a little more efficiency to your code.

Good luck.

abousetta

Thanks for that tip. I've been doing these reports for over 5 years and it was just a few years ago that I recorded a few macros to speed up the process and then I did not look at the macros again until recently. Then a few months ago I started watching videos on Lynda.com and noticed that I could remove some of the recorded code and I have taken out a lot so far. It takes time to learn what can be removed. By coming here and asking questions and getting support, I'm learning a lot.

Thanks again!