Sub FixTable(oDoc As Document)
'Graham Mayor - https://www.gmayor.com - Last updated - 06 Nov 2020
Dim oTable As Table
Dim i As Integer, j As Integer
    For j = oDoc.Tables.Count To 1 Step -1
        Set oTable = oDoc.Tables(j)
        For i = oTable.Rows.Count To 1 Step -1
            oTable.Rows(i).Select
            If Len(oTable.Rows(i).Range) <= 6 Then
                oTable.Rows(i).Delete
            End If
        Next i
        If oTable.Rows.Last.Cells.Count = 4 Then
            oTable.Rows.Last.Delete
        End If
    Next j
    Set oTable = Nothing
End Sub