Sub ScratchMacro()
'A basic Word macro coded by Greg Maxey
Dim lngIndex As Long, lngLength As Long
Dim oRow As Row
  If Selection.Tables(1).Columns.Count = 3 Then
    Do
      If Len(Selection.Tables(1).Rows.Last.Range.Text) = 8 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 If
  If Selection.Tables(1).Columns.Count = 7 Then
    Do
      Set oRow = Selection.Tables(1).Rows.Last
      lngLength = 0
      For lngIndex = 2 To 6
        lngLength = lngLength + Len(oRow.Cells(lngIndex).Range.Text)
      Next lngIndex
      If lngLength = 10 Then
        oRow.Delete
      Else
        Exit Do
      End If
    Loop
  End If
  Selection.Tables(1).Rows.Last.Borders(wdBorderBottom).Color = Selection.Tables(1).Rows.First.Borders(wdBorderTop).Color
End Sub