Sub DelEmptyCols()
Dim lLastCol As Long, lCol As Long
With Worksheets("Sheet1")
lLastCol = .Cells.SpecialCells(xlCellTypeLastCell).Column
For lCol = lLastCol To .UsedRange.Column Step -1
If Application.WorksheetFunction.CountA(.Columns(lCol)) = 0 Then .Columns(lCol).Delete
Next
End With
End Sub