Copying Excel Data to Word

I have data in Column J1:J90, I use a macro to open
the word document. Would like that data in Column J may be pasted in word document in text form automatically. such as:

abc

cdc

xyz

may be pasted as, abc cdc, xyz etc.

The macro is:

Sub OpenWord()
Dim WDApp As Object
Dim WordDoc As Object
Set WDApp = CreateObject("Word.Application")
Set WordDoc = WDApp.Documents.Add()
WDApp.Visible = True
End Sub

Thanks.

Flower R