Sub Prior()
  Call UpdateBookmark("Prior", "There were no prior audit issues during this engagement." & vbCr)
End Sub

Sub Reg()
  Call UpdateBookmark("Reg", "There were no regulatory issues during this engagement." & vbCr)
End Sub

Sub UpdateBookmark(StrBkMk As String, StrTxt As String)
Application.ScreenUpdating = False
Dim BkMkRng As Range
With ActiveDocument
  If .Bookmarks.Exists(StrBkMk) Then
    Set BkMkRng = .Bookmarks(StrBkMk).Range
    With BkMkRng
      .Tables(1).Delete
      .Text = StrTxt
      .Style = "Body Text"
    End With
    .Bookmarks.Add StrBkMk, BkMkRng
  End If
End With
Set BkMkRng = Nothing
Application.ScreenUpdating = True
End Sub