Actually, you don't have to select anything. Once you have defined the range, make use of the Copy method, create a new document, and paste:
Code:
Dim rngParagraphs As Range
Dim NewDoc As Document
Set rngParagraphs = ActiveDocument.Range( _
Start:=ActiveDocument.Tables(1).Range.Start, _
End:=ActiveDocument.Tables(8).Range.End)
rngParagraphs.Copy
Set NewDoc = Documents.Add
NewDoc.Content.Paste