I can't really run your code as I don't have the data sourece, etc.

I also don't see a higlighted ling. If this is the highlighted line:
Set myRng = ActiveDocument.Bookmarks.("Transplant_Type").Range
You could start by removing the period between Bookmarks.(