referencing an excel cell from word

I am not too familiar with Word VBA, but try the code below. You may have to change directory and cell reference to suit your need.

PS: Make sure Microsoft Object Reference from the library is checked

Sub Test()
Dim xlApp As Excel.Application: Set xlApp = CreateObject("Excel.Application")
Dim xlWB As Excel.Workbook

    Set xlWB = xlApp.Workbooks.Open("C:\Users\Jie\Desktop\Test\Test.xlsx")
            With ActiveDocument.Content
                .InsertAfter xlWB.Worksheets("Sheet1").Cells(1, 1)
                .InsertParagraphAfter
            End With
    xlWB.Close False
    xlApp.Quit
    Set xlWB = Nothing
    Set xlApp = Nothing
End Sub