I get the same result as Greg with your macro from your document.
Given the document format and assuming that you want the name Joe Jones (which appears several times in the document) then find a unique reference point that is always fixed and close to the text you want to find e.g.
usdaPersonGUID is two paragraphs below one instance of the required name, so using that one, the following macro will copy Joe Jones to the clipboard free from spaces and without change to the document.
If all the information you want is in the document, then if there are fixed references in the document that are the same each time the document is created, then you should be able to extract all the items you require in one macro and write them to the appropriate places in the new document without using the clipboard, but for that we would need to know where in the new document you want to place the data.
Or you could write all the required data from each such document to an Excel worksheet, or a Word table and use mail merge to create all the documents. It can certainly be simpler than running lots of macros.
Code:
Sub Macro18()
'Graham Mayor - http://www.gmayor.com - Last updated - 18 Jul 2017
Dim oClipboard As DataObject
Dim oRng As Range
'set a range to the document
Set oRng = ActiveDocument.Range
With oRng.Find
'Look for a fixed reference point in the range
Do While .Execute(FindText:="usdaPersonGUID")
'having found the reference shown above, move back the found text start two paragraphs to the name
oRng.MoveStart wdParagraph, -2
'set the end of the range to the end of that paragraph
'and remove the paragraph break from the range
oRng.End = oRng.Paragraphs(1).Range.End - 1
'stop looking
Exit Do
Loop
End With
'remove trailing spaces from the range
oRng.MoveEndWhile Chr(32), wdBackward
'remove leading spaces from the range
oRng.MoveStartWhile Chr(32)
'Copy the range to the clipboard
oRng.Copy
lbl_Exit:
Exit Sub
End Sub