Copy and Paste From Excel To Word

Copy and Paste From Excel To Word With Macro

For example to copy, we chose the cells between A:1 and G:30 in worksheet  .

VBA codes to copy from Excel to Word :

Sub wordeaktar()
Set Word = CreateObject("Word.Application")
Word.Documents.Add
Word.Visible = True
Range("A1:G30").Copy
Word.Selection.PasteExcelTable False, False, False
Application.CutCopyMode = False
End Sub