VBA code to delete blank columns (with header)

[Tgbell]

Hello All,

I have a worksheet full of data and after all my current macros run, I am sometimes left with entire blank columns.
Headers are on Row+2

For example: Column: A ( data starts in cell A3, due to header in A2) has data under the header all the way to A300; This goes up until Column S, where (under the header) there is not a single cell below with data.

This data changes daily when I run the macro with different raw data (not always column S empty).

Would there be a formula to go through and delete columns that do not have data underneath the header? in order to include this at the end to clean up my worksheet

Thanks!

[alansidman]

This should do it for you

Please Login or Register  to view this content.

[Tgbell]

I am unsure what went wrong. Could you help explain the lines of code you used in words, in ensure I am using it correctly? Why did you use the "left"? Also where do I put the Option Explicit?

[alansidman]

Explanation in code

Please Login or Register  to view this content.

[Tgbell]

why did you set 'lr' (last row) for column 2? The code is not getting any errors, but it is not deleting anything. For example, my data today
Has (A2:N99) O (blank), Pull (full of data), Q (blank). The columns that are blank can be different everyday. I am sorry for asking again, but my mind cannot get around this. Thanks so much for helping.

A1

2: HEADER