Dim lLastCol As Long, lCol As Long
lLastCol = .Cells.SpecialCells(xlCellTypeLastCell).Column
For lCol = lLastCol To .UsedRange.Column Step -1
If Application.WorksheetFunction.CountA(.Columns(lCol)) = 0 Then .Columns(lCol).Delete
I'll try it, but it doesn't look like what I need. It looks like it will delete all the columns to the right of any data, which would be fine, but I (may) have intermediate columns that would need to be deleted.
EX: A, B, C, E, G may have data, I'd want to delete D and G.