I don't know how you call word from excel, but the following works in Word. I
commented out the lines that paste into a new document.

Sub CopyPages()
'
   Selection.GoTo What:=wdGoToPage, Which:=wdGoToNext, Name:="21"
    With Selection
   .EndKey Unit:=wdLine, Extend:=wdExtend
   .MoveUp Unit:=wdLine, Count:=1
   .HomeKey Unit:=wdStory, Extend:=wdExtend
   .Copy
   'Documents.Add DocumentType:=wdNewBlankDocument
   'Selection.PasteAndFormat (wdPasteDefault)
   End With
End Sub

Hope this is of some help.

Hi Gopi,

Sub Test444()
' early binding, Word already running
' sourcedocument open
' sourcedocument is active document
Dim oWrd As Word.Application
Dim oDoc As Word.Document
Set oWrd = GetObject(, "Word.Application")
Set oDoc = oWrd.ActiveDocument
oDoc.Range(0, 0).Select
With oWrd
  .Selection.ExtendMode = True
  .Selection.Goto _
  what:=wdGoToPage, _
  which:=wdGoToAbsolute, _
  Count:=21 '!
  ' MsgBox .Selection.Information(wdActiveEndPageNumber)
  .Selection.Copy
  ' your code
End With
End Sub

Brian's solution is quite alright was well.

@ Brian:

With the exception, that
...
  .EndKey Unit:=wdLine, Extend:=wdExtend
  .MoveUp Unit:=wdLine, Count:=1
...
should be
...
  .MoveUp Unit:=wdLine, Count:=1
  .EndKey Unit:=wdLine, Extend:=wdExtend
...