Delete columns where the last row in the column = 0

Hi All,

I have a worksheet with a range that has a set amount of columns (A:AJ) but a variable amount of rows (anywhere from 3:20).

The last row holds the sum of the column. Column A holds a bunch of names.

What I would like to have is a macro that looks at the last row for each column from B to AJ and deletes the entire column if the last row in the column = 0.

My problem is that as soon as you delete one column, the range changes, meaning it skips columns. I need it to look at each column and delete the columns with 0 in the last row without skipping any columns.

I think this means I need a "loop" marco but I have no idea how to do it.

You could use this code:

Please Login or Register  to view this content.

Regards,
Antonio