Keep spacing between Pivots

[Gman]

Hello all I am beginning to make a dashboard but have run into an issue. I will have multiple pivot tables, and they will change in size as the month goes on. I want to keep the spacing between them the same at all times. I also need it to update the spacing automatically so when data for a new day gets added it shows that day and keeps the 3 spaces (rows 15,16,17) before next pivot starts.

Thanks in advance for the help.
Gman

 

[vletm]

Gman ... You wrote in 'previous' case that:
I have searched google for VBA on it but not finding a lot
... not even next one?
https://www.thespreadsheetguru.com/blog/2014/6/20/the-vba-guide-to-listobject-excel-tables

AND
You made a duplication - not good!

 

[Derek McGill]

Put this in to a vba sub :-

Const blanks =3
Dim lastValue AsString, i AsLong, r AsLong
Do
r = r +1
If r >1 And lastValue <> Cells(r,1).Value Then
If Cells(r,1).Value = "" ThenExitDo
For i =1 To blanks
Rows(r).Insert Shift:=xlDown
Next
r = r + blanks
EndIf
lastValue = Cells(r,1).Value
Loop

 

[Gman]

Put this in to a vba sub :-

Const blanks =3
Dim lastValue AsString, i AsLong, r AsLong
Do
r = r +1
If r >1 And lastValue <> Cells(r,1).Value Then
If Cells(r,1).Value = "" ThenExitDo
For i =1 To blanks
Rows(r).Insert Shift:=xlDown
Next
r = r + blanks
EndIf
lastValue = Cells(r,1).Value
Loop

I have tried the code you provided, unfortunately when I tried to run it gave me a "Run-time error '1004': We can't make this change for the selected cells because it will affect a PivotTable. Use the field list to change the report. If you are trying to insert or delete cells, move the PivotTable and try again."