Delete blank/empty rows between two pivot tables

I created two pivot tables and next to them two pivot charts.

Of course the pivot tables show up with different lenghts when the underlying data changes. Therefore I left a lot of blank rows between the two pivottables.
To delete the empty rows I use a macro :
Range("A:A").SpecialCells(xlCellTypeBlanks).EntireRow.Delete

Problem is....there is no empty row between the two pivottables left

Now i am looking for a way to add a blank row after the first pivot table, or to find a method to set the position of the second pivottabel and chart relative to the end of the first pivot table

EDIT:I found that I cannot save macro's in this particular case so I moved my question to another sub of this forum

You would probably get a better response if you attach a sample workbook with the issue already set up. Also, I would recommend hiding rather than deleting the rows to allow for the pivot tables to re-expand.

Attach a sample workbook (not a picture or pasted copy). Make sure there is just enough data to demonstrate your need. Include a BEFORE sheet and an AFTER sheet in the workbook if needed to show the process you're trying to complete or automate. Make sure your desired results are shown, mock them up manually if necessary.

Remember to desensitize the data.

Click on GO ADVANCED and then scroll down to Manage Attachments to open the upload window.