You need to pay careful attention to your code. What do you expect that the Extend option does on the following line?
Selection.MoveUp Unit:=wdParagraph, Count:=8, Extend:=wdExtend

Make that line end after the 8 and you will be moving the cursor instead of extending the selection

__________________
Andrew Lockton
Chrysalis Design, Melbourne Australia