Delete Columns with blank or zero in total

Hi Everyone,

I have VBA code that takes certain filters in a pivot table and creates separate workbooks from it.
In those newly created workbooks, I need to take all columns that contain a total of zero or blank and get rid of that column.
I need the code to start in cell C & last row of the pivot table to that same row & last column of the pivot table, and analyze those cells for zeros or blanks and get rid of those columns.

Please help http://www.vbaexpress.com/forum/imag...ABAAEAAAIBRAA7

Cross posted.

Cross Posted, but I marked it as resolved on the other site due to a lack of response.
So, technically I had one active posting and wasn't wasting anyone's time on the other site.