Sub ScratchMacro()
'A basic Word macro coded by Greg Maxey
Dim lngIndex As Long, lngLength As Long
Dim oRow As Row
 
  'check table 9
  Selection.GoTo What:=wdGoToBookmark, Name:="RM1a"
  Do
    Set oRow = Selection.Tables(1).Rows.Last
    lngLength = 0
    For lngIndex = 2 To 11
      If lngIndex <> 7 Then
        lngLength = lngLength + Len(oRow.Cells(lngIndex).Range.Text)
      End If
    Next lngIndex
    If lngLength = 18 Then
      Selection.Tables(1).Rows.Last.Delete
    Else
      Exit Do
    End If
  Loop
  Selection.Tables(1).Rows.Last.Borders(wdBorderBottom).Color = Selection.Tables(1).Rows.First.Borders(wdBorderTop).Color
End Sub