You will have to start somewhere!
Code:
Sub FillTargetRangeWithExcelData()
'Some more code
End Sub
Show us what you have got and what you have tried. To get basic data from Excel you may want to create an instance of Excel:
http://word.mvps.org/FAQs/InterDev/C...XLFromWord.htm