Loop Across Columns If Blank Cell Loop Down Rows

The below code loops across columns in a predefined range, when it hits a blank cell it marks that cell 'test'

What i actually need the code to do is once it hits a blank cell, it loops down the rows in that column....if all the cells in the column for the range of rows are blank, i need the macro to hide that column. Once a column has been hidden i need the code to carry on through the columns in the pre defined range.

Is anyone able to help me complete the code below ? I am fairly lost with this now and help would be appreciated.

Please Login or Register  to view this content.

The hide columns part does not seem to work, i think it may be something to do with the End(xlUp) section of the code, is there a different way of validating this check??