Pivot Table Changing Cell Colors - excel

Question

I am hoping someone can help me figure out a really annoying aesthetic feature of pivot tables in Excel.
Here is what my current "analysis" screen looks like without the pivot tables:
However, I have placed pivot tables in the black boxes and have a macro to auto update them after I import more data. That is below:
Sub UpdatePivots()
' This sub is intended to update all pivot charts in the by switching to the appropriate
' worksheet, locating the appropriate pivot table, and updating them.
Dim ws As Worksheet
Dim PT As PivotTable
Dim pvtItem As PivotItem
For Each ws In ActiveWorkbook.Worksheets '<~~ Loop all worksheets in workbook
For Each PT In ws.PivotTables '<~~ Loop all pivot tables in worksheet
PT.PivotCache.Refresh
Next PT
Next ws
End Sub
However, the imported data changes. Sometimes it is very small, sometimes it is very large, and so I end up with my pivot tables looking like this:
How is it possible for me to either write code, or change settings, so those ugly white rows don't appear? I would like for the gray to remain if there are no pivot rows. I have tried checking in Pivot Table formatting settings but have been unsuccessful.

Answer 1

You can use a standard last row identifier and then color your interior cells below. You will need to pick a max row number (here it always color form last row down to 100, so change 100 if needed). You will also need to set the columns since you have a black border.
Last, you will just need to add the color code. I added a bit of code below to extract the color code if you don't know what it already.
This solution will work for the left pivot. You will need to duplicate the two lines of code I added for the pivot on right.
Sub UpdatePivots()
Dim ws As Worksheet
Dim PT As PivotTable, pvtItem As PivotItem
Dim LRow As Long
For Each ws In ActiveWorkbook.Worksheets
For Each PT In ws.PivotTables
PT.PivotCache.Refresh
LRow = ws.Range("D" & ws.Rows.Count).End(xlUp).Offset(1).Row
ws.Range(ws.Cells(LRow, "D"), ws.Cells(100, "G")).Interior.Color = 11184814
Next PT
Next ws
End Sub
If you do not know the color code, you can run the below code to find it!
Sub ColorCode()
Dim Target As Range
Set Target = Application.InputBox("Select desired cell to return color code", Type:=8)
If Not Target.Count > 1 Then
MsgBox "Color Code: " & Target.Interior.Color
End If
End Sub