Hiding Columns in a table if ALL the cells in column are a certain value

[Zach51215]

Hello All,
Quick Question

Data Parameters:
A1 . . . BE1 = Column Headers of 'Table Names'
A1
.
. = Row Headers of "Components available in table"
.
A554

So basically my column headers are a bunch of different table names. My row headers are the various components that may be found in the table. If the component is found in the table then the cell has 'Y' for that particular column. If the component is not in the cell then the cell has 'N' for that particular column. Data Example:

_________Table 1_____Table 2_____Table 3____Table 4
Height______Y_________N___________N__________Y
Weight_____Y__________Y___________N__________Y
Name______N__________N___________N__________N
Date_______Y__________Y___________Y__________Y

So what I want it to do is when I run this (it will probably have to be a macro) is that if a column has all 'N''s then I want that column hidden. But EVERY component has to be 'N'. If there is a single 'Y' I want it displayed. I will probably set this macro as a button.

What I will want as an end product is to be able to filter my table components (height, weight, name, date, etc). So if above is a before example (let's say I filter and remove the component 'Date") then after I run the macro I want to see:

INTERMEDIATE STEP (IMMEDIATELY AFTER FILTERED, NOTICE ALL TABLE 3 CELLS ARE 'N')
_________Table 1_____Table 2_____Table 3____Table 4
Height______Y_________N___________N__________Y
Weight_____Y__________Y___________N__________Y
Name______N__________N___________N__________N

FINAL PRODUCT (AFTER I CLICK THE RUN MACRO)
_________Table 1_____Table 2____Table 4
Height______Y_________N__________Y
Weight_____Y__________Y__________Y
Name______N__________N__________N


I'm struggling with this because I'm new to vba programming. Please help. Thanks