print filtered columns

Hi,
I need to filter one column at a time for non-blanks, then print the results, and repeat for the next 50+ columns....I have the following manual codes:

Please Login or Register  to view this content.

Is there a way to loop this with better codes, so it can start at cell B3 to BD3, page 1-55 (without me repeating the codes for 50+ times?)?

Thanks in advance for your help.