It appears Mick's evaluation technique wasn't working properly for your data, so here's the macro with my standard technique instead, it will delete any column that has nothing in it after row 1:
Sub DeleteEmptyColumns()
Dim LastCol As Long
Dim Col As Long
Dim LastRow As Long
Dim DelRNG As Range
LastCol = Cells(1, Columns.Count).End(xlToLeft).Column
For Col = 1 To LastCol
LastRow = Cells(Rows.Count, Col).End(xlUp).Row
If LastRow = 1 Then
If DelRNG Is Nothing Then
Set DelRNG = Cells(1, Col)
Else
Set DelRNG = Union(DelRNG, Cells(1, Col))
End If
End If
Next Col
DelRNG.EntireColumn.Delete xlShiftToLeft
Set DelRNG = Nothing
End Sub
Bookmarks