Delete columns

Hi,

This Code will check those 3 criteria

Sub Test()

Dim LR As Long, LC As Long, x As Integer, WF As WorksheetFunction

LR = ActiveSheet.UsedRange.Rows.Count
LC = ActiveSheet.UsedRange.Columns.Count
Set WF = Application.WorksheetFunction

For x = LC To 1 Step -1
    If Cells(1, x) = "MONTH" Then
    Columns(x).Delete
    Else
        If WF.CountBlank(Range(Cells(1, x), Cells(LR, x))) = LR Then
        Columns(x).Delete
        Else
            If WF.Sum(Range(Cells(1, x), Cells(LR, x))) = 0 Then
            Columns(x).Delete
            End If
        End If
    End If
    
Next x

End Sub