Delete Empty Columns Excel

del_empty_column.vbs

Sub DelCol()
'
' DelCol Macro
'
'
    Dim wb As Workbook
    Dim nLastCol As Long, i As Long
    Set wb = ThisWorkbook
    With wb.Worksheets(1)
        nLastCol = .Cells(1, .Columns.Count).End(xlToLeft).Column
        For i = nLastCol To 1 Step -1
            If .Cells(.Rows.Count, i).End(xlUp).Row = 1 Then
                .Columns(i).EntireColumn.Delete
            End If
        Next i
    End With

End Sub