Your second macro starts off with:
Set Rng = Selection.Range
Since the document already had:
.Protect Type:=wdAllowOnlyFormFields
before the macro was run, Selection.Range would have been pointing to a formfield and you should be collapsing the range before proceeding:
Code:
With Rng
.Collapse wdCollapseEnd