Any place in the macro you currently have before the line:
Code:
Application.Templates( _
"C:\Users\cking\AppData\Roaming\Microsoft\Docu ment Building Blocks\1033\16\Building Blocks.dotx" _
).BuildingBlockEntries("OutOfOrder").Insert Where:=Selection.Range, _