excell to word???

[priska]

No, lo que quiero es ejecutar la macro con diferentes rangos para que me los pegue en el mismo documento de word. Es decir, quiero incluir varios rangos a la vez en la misma macro.

Dim wordApp As Object
Dim wordDoc As Object
Set wordApp = CreateObject("Word.Application")
Set wordDoc = wordApp.documents.Add

Worksheets("Cat1").Range("cat1").Select
Worksheets("Cat2").Range("cat2").Select
Worksheets("Cat3").Range("cat3").Select

Application.Selection.Copy
wordApp.Visible = True
wordApp.Selection.PasteSpecial Link:=False, DataType:=wdPasteOLEObject, Placement:=wdInLine, DisplayAsIcon:=False

Ya intenté ponerlo así pero no lo ejecuta supongo que habrá algún código para replicar la misma operación con diferentes rangos, o algo así?

Gracias Sr. David!