copy multiple worksheets of a workbook, and paste onto a Word document ( either create new doc file or paste onto an existing file.) I need this done by VBA, Excel Macro

Hi, there.

I really need this.
I need an excel macro copies multiple worksheets from a workbook. (A
workbook contains multiple worksheets), and paste onto a word
document.)
Please help me..I am so new at this excel macro, and have no idea to
start out.

I've found this code from microsoft.com. But it doesn't fit my needs
quite well.
I need it modified as macro finds active sheet and active cells from
each sheet.
This code copies from fixed location.

And I believe this code used if statement to check the system is PC or
MAC, but I will run this only on PC...need to get rid of that "if"
statement.

______________________________________________________________________

Sub PasteTableToWord()
Dim obj As Word.Application

Worksheets("sheet1").Activate 'Activate the worksheet
'Select the range of cells to copy
Worksheets("sheet1").Range("a1:c10").Copy

Set obj = CreateObject("Word.Application.9") 'Create a word object
obj.Visible = True 'Make Word visible
Set newDoc = obj.Documents.Add 'Create a new file.

'Determine if Microsoft Excel is running on the Macintosh or
Windows.
If (Application.OperatingSystem Like "*Mac*") Then
AppActivate "Microsoft word"
obj.Selection.PasteSpecial 'Paste data into Word

Else 'If Windows NT/95/3.x - paste data into Word
obj.Selection.PasteSpecial
End If
'Format table
obj.Selection.Tables(1).AutoFormat Format:=wdTableFormatGrid1
newDoc.SaveAs Filename:="C:\TestDoc.doc" 'Save the file
obj.Quit 'Quit Word
Set obj = Nothing 'Release object
End Sub