Dim s As Long, i As Long
With ActiveDocument
  For s = 1 To .Sections.Count - 1
    With Sections(s).Range.Tables(2)
      For i = .Rows.Count To 2 Step -1
        If Len(.Cell(i, 3).Range.Text) = 2 And Len(.Cell(i, 9).Range.Text) = 2 Then .Rows(i).Delete
      Next i
    End With
  Next
End With