Перенести данные из таблиц Excel в таблицы Word? — Basic(Бейсик)

Dim oOleObject As InlineShape
 
Set oOleObject = Selection.InlineShapes.AddOLEObject(ClassType:="Excel.Sheet.8", FileName:="C:\Export.xls", LinkToFile _
:=False, DisplayAsIcon:=False)
Application.WindowState = wdWindowStateNormal