[VBA] Pasting data in Word looping for no apparent reason

[Dave]

HTH. Dave

Dim ORng as Object
With wdDoc
Set ORng = WdDoc.Bookmarks("TableInsertion").Range
ORng.Delete
ORng.Paste
.Bookmarks.Add "TableInsertion", ORng
End With
Application.CutCopyMode = False
Set ORng = Nothing