Acceso a Word

Hola Experto una vez más apelo a tus conocimientos.. Tengo unos datos en Excel que tienen filtro automático y ya está etablecida el área de impresión y necesito pasarlos a Microsoft Word para una mejor redacción, tengo el siguiente código pero no sé como podría agregar el rango del Área de Impresión
Sub Open_MSWord()
On Error GoTo errorHandler
Dim wdAplicación As Word.Application
Dim miDoc As Word.Document
Dim miRange As Word.Range
Set wdAplicación = New Word.Application
With wdAplicación
.Visible = True
.WindowState = wdWindowStateMaximize
End With
Set miDoc = wdAplicación.Documents.Add
'Establecemos la ruta donde se guardará el archivo
'ChangeFileOpenDirectory "C:\WINDOWS\Escritorio\"
'Establecemos el Nombre del Documento
'ActiveDocument.SaveAs Filename:="prueba.doc"
Set miRange = miDoc.Words(1)
With miRange
'.Text = Range("v6") & "Hollaalala" 'Range("Área_de_impresión")
'.Font.Name = "Comic Sans MS"
'.Font.Size = 12
'.Font.ColorIndex = wdGreen
'.Bold = True
End With
errorHandler:
Set wdAplicación = Nothing
Set miDoc = Nothing
Set miRange = Nothing
End Sub
Espero tu pronta ayuda ante este gran problema para mi.