Hiding Empty Columns In Range

I am trying to hide columns in a range, "P8:ET1087" but it isn't working. After I autofilter a value, every row will be hidden except for the rows where the value is found. This is always 6 rows, won't be more or less.

The 6 cells in every column are the same and contain from 1 to 6:
Text
Text
Date
Number
Text
Date

What I am trying to do is to hide the column if all cells in that column are blank/empty after it's autofiltered. That for the 135 columns, from P to ET.

I was messing around with the following code:

[Code] .....

But it doesn't seem to work.