Hello,
I have a script that I found from KuTools that will help delete all columns that have no data, only a header.
Sub RemoveEmptyFields()
Dim xEndCol As Long
Dim i As Long
Dim xDel As Boolean
On Error Resume Next
xEndCol = Cells.Find("*", SearchOrder:=xlByColumns...