Excel VBA macro to delete empty columns. Just run this macro, enter number of columns you want to check and the macro checks (starting from first column) and deletes all empty columns within the selected number of columns.
In the macro, you can also find VBA syntax to delete empty row and to check whether a column is empty
VBA macro to delete empty columns
Sub deleteEmptyColumns()
Dim columnCount As Variant
columnCount = InputBox("Enter number of Columns that you want to check")
Range("A1").Select
Do
' syntax to check whether a Column is empty
If Application.CountA(ActiveCell.EntireColumn) = 0 Then
' syntax to delete a column
Selection.EntireColumn.Delete
Else
ActiveCell.Offset(0, 1).Select
End If
columnCount = columnCount - 1
Loop Until columnCount = 0
End Sub
