Can be done several ways if this is what you mean.

'go to the beginning
Selection.HomeKey Unit:=wdStory
'go to the end
Selection.EndKey Unit:=wdStory
'got the first line
Selection.GoTo What:=wdGoToLine, Which:=wdGoToFirst
'go to the last line
Selection.GoTo What:=wdGoToLine, Which:=wdGoToLast

Karen.Reedy was telling us:
Karen.Reedy nous racontait que :

It is better to work with he Range object then messing about with moving the
selection.

Something like this will paste whatever is on the clipboard at the end of
the active document:

'_______________________________________
Dim rgeDoc As Range

Set rgeDoc = ActiveDocument.Range

With rgeDoc
   .Collapse wdCollapseEnd
   .Paste
End With
'_______________________________________

But, to fully automate the procedure, and assuming that the procedure is
launched from the document that contains the table to archive, try something
like this:

'_______________________________________
Sub NoELtr()

Dim docTarget As Document
Dim rgeDocTarget As Range
Dim rgeSource As Range

If Not Selection.Information(wdWithInTable) Then
   MsgBox "Please, position the cursor in the table to archive before
proceeding."
   Exit Sub
End If

Set rgeSource = Selection.Range.Tables(1).Range
Set docTarget = Documents.Open("C:\MyPath\MyWeeklyReportDocument.doc")

Set rgeDocTarget = docTarget.Range

With rgeDocTarget
   .Collapse wdCollapseEnd
   .FormattedText = rgeSource.FormattedText
End With

docTarget.Close wdSaveChanges

End Sub
'_______________________________________