Public Sub RepairTable( _
      ByVal Table As ListObject _
   )
' Repair the Table's formatting and formulas by making them consistent down the
' entire length of each column.
'
' Syntax
'
' RepairTable(Table)
'
' Table - A Table object (ListObject object).

Dim RowCount As Long
Dim ListColumn As ListColumn
Dim ShowTotals As Boolean

RowCount = Table.ListRows.Count
If RowCount < 2 Then Exit Sub

With Table
   ShowTotals = .ShowTotals
   .ShowTotals = False
   .Resize .HeaderRowRange.Resize(2)
   For Each ListColumn In .ListColumns
      With ListColumn.DataBodyRange.Resize( _
         Application.Max(RowCount, 1)).Offset(1)
         If Left(.Rows(1).Formula, 1) = "=" Then
            .Cells.Clear
         Else
            .Cells.ClearFormats
         End If
     End With
   Next ListColumn
   .Resize .HeaderRowRange.Resize(1 + RowCount)
   .ShowTotals = ShowTotals
End With

End Sub