How to delete entire column if it is Empty

I have columns
Row 1 is heading..


IF Column C doesn't have data in entire column then delete C D E F
IF Column D doesn't have data in entire column then delete D E F
IF Column E doesn't have data in entire column then delete E F
IF Column F doesn't have data in entire column then delete F


Same way for heading NN's

IF Column G doesn't have data in entire column then delete G H I J K L M N
IF Column H doesn't have data in entire column then delete H I J K L M N
IF Column I doesn't have data in entire column then delete I J K L M N
IF Column J doesn't have data in entire column then delete J K L M N
IF Column K doesn't have data in entire column then delete K L M N
IF Column L doesn't have data in entire column then delete L M N
IF Column M doesn't have data in entire column then delete M N
IF Column N doesn't have data in entire column then delete N

A B C D E F G H I J K L M N O P Q R
TITLE1 TITLE2 TT1 TT2 TT3 TT4 NN1 NN2 NN3 NN4 NN5 NN6 NN7 NN8 CMT K2 K3
BLAH BLAH


Thanks

this macro will delete column C, D, E and/or F depending on columns conten:

Public Sub test()
Dim C_ol As Range
For Each C_ol In Range("C1:F1")
  If C_ol.EntireColumn.Cells.SpecialCells(xlCellTypeConstants).Count - 1 = 0 Then
    Range(C_ol, Range("F1")).EntireColumn.Delete
    Exit For
  End If
Next
End Sub

This one will delete columns G, H, I J K L M and/or N depending on columns contents:

Public Sub test()
Dim C_ol As Range
For Each C_ol In Range("G1:N1")
  If C_ol.EntireColumn.Cells.SpecialCells(xlCellTypeConstants).Count - 1 = 0 Then
    Range(C_ol, Range("N1")).EntireColumn.Delete
    Exit For
  End If
Next
End Sub

The problem here is that when you run the first macro, the OLD column G is no longer at G because you'll have deleted some columns. So you can run either one of them but not both unless we can refer to titles to locate the columns to be deleted.
Hope this helps.