Sub DeleteRowIf()
  Dim MyRange As Range
  Set MyRange = ActiveDocument.Range
  With MyRange.Find
    .ClearFormatting
    .Text = "TEXT TO FIND"
    .MatchCase = True
    .Forward = True
    .Wrap = wdFindStop
    .Format = False
    While .Execute
      If MyRange.Information(wdWithInTable) Then
        If MyRange.Rows.First.Range = MyRange.Tables(1).Rows.First.Range Or MyRange.Rows.First.Range = MyRange.Tables(1).Rows.Last.Range Then
          MyRange.Rows(1).Delete
        End If
      End If
    Wend
  End With
  MsgBox "Done!", vbInformation
End Sub