Code to Hide/Unhide columns if null when using Autofilter

[hhod]

I'm looknig for the EXACT code that I will need to Hide and Unhide columns if the columns have no data in them once an auto filter is applied on a specific column (A). In the attached I want to filter as an example Wheat, Red Spring in column A and have it hide all columns where Row 1 = 0. I need this to dynamically change each time a filter is applied. When All is selected in column A I want it to show all columns. In the Wheat example the results should be columns C & J.

Is this possible? If there is a better way I'm open to any suggestions.
Any help is apreciated!!

[Artik_PL]

In sheet class module:

Please Login or Register  to view this content.

Artik

[hhod]

I also need it to unhide all of the columns when I select ALL under the autfilter in column A?? Thanks!

[Artik_PL]

Please Login or Register  to view this content.

Artik

[hhod]

This works great. Thanks!! I may need Column A moved to column D as an example, so the filter would be applied in column D rather than A. I changed the "If Me.AutoFilter.Filters(1).On Then" to "If Me.AutoFilter.Filters(4).On Then" which works, but it then hides columns A - C. I would want all columns to the left of my filtered column to show at all times. Thanks