HI All,
I need to copy set of cells from Excel and paste in a word doc in atble format.

ex: iam copying data of 3 rows having 3 columns in excel and want to paste it in a word table.
i tried of of copying excel to word with the following code and worked well but want to insert a table in this word to have this data.
could someone help me out

Sub proWord()
Dim varDoc As Object


Set varDoc = CreateObject("Word.Application")
varDoc.Visible = True
Sheets("Sheet1").Range("A1:I45").Copy
varDoc.documents.Add

varDoc.Selection.Paste
varDoc.activedocument.SaveAs Filename:="test1" & ".doc"
varDoc.documents.Close

varDoc.Quit

End Sub


Thanks
Shekhar