Paste txt to word
 

I have been trying to paste some text into word.

So far I have come up with following code: It copies cells containing text,
opens word and than rings the alarm bell.....

Any further help will be greatly appreciated.
Daniel

Sub CreateNewWordDoc()
ActiveWorkbook.CustomViews("Print").Show
Range("J2:L55").Select
Selection.Copy
Shell "C:\Program Files\Microsoft Office\Office11\WINWORD"
Set wrdApp = CreateObject("Word.Application")
wrdApp.Visible = True
Set wrdDoc = wrdApp.Documents.Add
With wrdDoc
????????Paste???????????
End With
End Sub