I have two pivot tables on a worksheet. I need to add code to delete all except two blank rows between the pivot table upon refresh. I added code but it is only deleting 1 blank row...The code that I added was:
Code:
Sub DeleteBlankRows2()
On Error Resume Next
Selection.EntireRow.SpecialCells(xlBlanks).EntireRow.Delete
On Error GoTo 0
End Sub