I created a macro to select text from a Word document and insert it into a footer by recording key strokes and mouse clicks. It's failing when pasting the selected text into the footer. Does anyone know what's wrong?

Selection.HomeKey Unit:=wdStory
Selection.EndKey Unit:=wdLine, Extend:=wdExtend
Selection.Cut
WordBasic.ViewFooterOnly
ActiveDocument.AttachedTemplate.BuildingBlockEntri es(" Blank").Insert _
Where:=Selection.Range, RichText:=True
Selection.PasteAndFormat (wdPasteDefault)