Need macro to delete a column with a blank cell

[dwirony]

Hello all,



I need a word macro to delete a column in any given table that has any blank cell within it. For example, my tables are generating and sometimes columns generate that have only a header but no information in the cell below it because there is none. I need to delete this entire column. I have this macro already but it only deletes a row/column if the entire row/column is empty; How can I modify it?

Sub DeleteEmptyTablerowsandcolumns()
Application.ScreenUpdating = False
Dim Tbl As Table, cel As Cell, i As Long, n As Long, fEmpty As Boolean
With ActiveDocument
  For Each Tbl In .Tables
    n = Tbl.Columns.Count
    For i = n To 1 Step -1
      fEmpty = True
      For Each cel In Tbl.Columns(i).Cells
        If Len(cel.Range.Text) > 2 Then
          fEmpty = False
          Exit For
        End If
      Next cel
      If fEmpty = True Then Tbl.Columns(i).Delete
    Next i
  Next Tbl
End With
With ActiveDocument
  For Each Tbl In .Tables
    n = Tbl.Rows.Count
    For i = n To 1 Step -1
      fEmpty = True
      For Each cel In Tbl.Rows(i).Cells
        If Len(cel.Range.Text) > 2 Then
          fEmpty = False
          Exit For
        End If
      Next cel
      If fEmpty = True Then Tbl.Rows(i).Delete
    Next i
  Next Tbl
End With
Set cel = Nothing: Set Tbl = Nothing
Application.ScreenUpdating = True
End Sub