Delete entire column if all cells in a certain range are empty

Hi,

Create a helper row 1 and use =IF(SUM(C4:C1001)=0,"delete","keep")

Now use a macro along the lines of

Sub DeleteColumns()
    Dim x As Long
    For x = Range("G1:L1").Cells.Count To 1 Step -1
        If LCase(Range("G1:L1").Cells(1, x)) = "delete" Then Range("G1:L1").Cells(1, x).EntireColumn.Delete
    Next x

End Sub

Regards