VBA Code to copy/paste data in Word

[sherryaw]

I want to run a Macro to copy a range of pages in a Word doc and paste them at the end. The Macro I have is extremely slow as I recorded it. This is my first time writing VBA in Word and am lost as how to do it. Any guidance is greatly appreciated! See belowfor the VBA I currently have.

"Sub AddProperty()
'
' AddProperty Macro
' Add Individual Property section to Portfolio ASR.
'
Selection.MoveDown Unit:=wdLine, Count:=279, Extend:=wdExtend
Selection.Copy
Selection.MoveDown Unit:=wdLine, Count:=1
Selection.InsertBreak Type:=0
Selection.PasteAndFormat (wdFormatOriginalFormatting)
End Sub"