Macro Needed to delete Unwanted paragraphs within a table.

[frustrated teacher]

I want to be able to delete the last paragraph within a table. After running several macros I am left with a table with just 3 paragraphs.



I have attached a sample BEFORE the macros are applied and a sample of what it looks like AFTER the macros are applied.

I tried the following code and it does not seem to work.

Sub UpdateTables()
Application.ScreenUpdating = False
Dim Tbl As Table, Rng1 As Range, Rng2 As Range
With ActiveDocument
  For Each Tbl In .Tables
    With Tbl
      If .NestingLevel = 1 Then
        Set Rng1 = .Cell(1, 1).Range
        With Rng1
          .End = .End - 1
          If (.Text Like "#.") Or (.Text Like "##.") Or (.Text Like "###.") Then
            Set Rng2 = .Rows(1).Cells(2).Range
            With Rng2
              .End = .End - 1
              While .Paragraphs.Last.Range.Tables(1).NestingLevel = 1
                .Paragraphs.Last.Range.Text = vbNullString
              Wend
            End With
          End If
        End With
      End If
    End With
  Next
End With
Set Rng1 = Nothing: Set Rng2 = Nothing
Application.ScreenUpdating = True
End Sub