VBA code to delete rows that are blank

I have a worksheet that has two pivot tables on them. There is a lot of other code in the workbook. I need to add additional code to, upon refresh of the two pivot tables, delete all but two of the blank rows between them. The code that I added to do this, is only deleting one row..... if I keep hitting run it removes them one at a time.

Sub DeleteBlankRows2()

Please Login or Register  to view this content.

I have found code that will delete all of the lines at once, but I need to be able to keep two lines between the two pivot tables. The code that I used to delete all this lines is:

Please Login or Register  to view this content.

I have found code that will delete all of the lines at once, but I need to be able to keep two lines between the two pivot tables. The code that I used to delete all this lines is:

Please Login or Register  to view this content.