Sub vv()
Dim fn$
fn = Environ("temp") & "\" & Format(Now, "yymmddhhnnss") & ".docx" 'путь к временному файлу
Range("A1:B10").Copy                                               'диапазон, который копировать - вставлять
With CreateObject("word.document")
    .Range.Paste
    .SaveAs fn
    .Close 0
End With
ActiveSheet.OLEObjects.Add Filename:=fn, Link:=False, DisplayAsIcon:=True
Kill fn
End Sub

Private Sub CommandButton1_Click()
Dim x As OLEObject
Set x = ActiveSheet.OLEObjects.Add(ClassType:="Word.Document", Link:=True _
        , DisplayAsIcon:=False, Left:=433.5, Top:=129, Width:=171, Height:=82.5)
x.Object.Range.Text = "Hello World!"

'дальнейшее просто для иллюстрации работы с внедренным документом
x.Verb              'активировать внедренный документ
MsgBox "Готово"
ActiveCell.Activate 'вернуться к текущему листу
End Sub