Select Range, Copy, then Paste

[fireby40]

I have the following code where I am selecting a range from excel, opening a word document, then pasting it to that word document. However, the code does not copy and paste the data, and I am not sure why. Please let me know your thoughts. Thanks!!

Sub Report()

Dim wdApp As Word.Application
Set wdApp = New Word.Application

Set c = Range("C3").End(xlDown)
Set G = Range("G3").End(xlDown)
Set i = Range("I3").End(xlDown)
Set J = Range("J3").End(xlDown)
Union(c, G, i, J).Copy
wdApp.selection.Paste

End Sub

 

[tonyyy]

fireby40,

Welcome to the Board.

You might consider the following...

Sub Report()
Dim c As Range, G As Range, i As Range, J As Range
Dim WordApp As Object, WordDoc As Object
Set WordApp = CreateObject("Word.application")

Set c = Range("C3").End(xlDown)
Set G = Range("G3").End(xlDown)
Set i = Range("I3").End(xlDown)
Set J = Range("J3").End(xlDown)
Union(c, G, i, J).Copy

WordApp.Visible = True
Set WordDoc = WordApp.Documents.Add
WordDoc.Content.Paste
End Sub

Cheers,

tonyyy