Disponibilize os dois arquivos modelos de como esta e como deve ficar no final.

Tem que ser em word???????? Nao serve PDF???

Obrigado ...
Achei fui quebrando a cabeça e achei o Código aqui...
quem interessar, ja ajuda....

Só lembrando que é necessário, ativar as referencias do Word.

Sub Macro3()
Dim MSWord As Object
Dim docWord As Object

Set MSWord = CreateObject("Word.Application")
Set docWord = MSWord.Documents.Open("C:Usersjose_perezDesktopDoc1.docx")
MSWord.Visible = True
'MSWord.ScreenUpdating = True

Worksheets("Plan1").Range("J1").Copy
MSWord.Selection.TypeParagraph
MSWord.Selection.TypeParagraph
MSWord.Selection.PasteAndFormat (wdFormatPlainText)
Worksheets("Plan1").Range("a2").Copy
MSWord.Selection.TypeText Text:=vbTab
MSWord.Selection.PasteAndFormat (wdFormatPlainText)

Worksheets("Plan1").Range("b2").Copy
MSWord.Visible = True
MSWord.Selection.TypeParagraph
MSWord.Selection.PasteAndFormat (wdFormatPlainText)

Worksheets("Plan1").Range("c2").Copy
MSWord.Visible = True
MSWord.Selection.TypeParagraph
MSWord.Selection.PasteAndFormat (wdFormatPlainText)

Worksheets("Plan1").Range("d2").Copy
MSWord.Visible = True
MSWord.Selection.TypeText Text:=vbTab & vbTab
MSWord.Selection.PasteAndFormat (wdFormatPlainText)

End Sub

Boa tarde JPerez ,

Você poderia explicar o código abaixo?

"Set MSWord = CreateObject("Word.Application")"

Pelo que entendi a variável MSWORD é do tipo object, e isso quer dizer que ela pode ser inserida dentro de alguma classe desejada?