Копирование таблицы из excel в word - VBA

Формулировка задачи:

Добрый день! Необходимо копировать таблицу из Excel в файл ворд, шаблон файла ворд я сделал. Написал несколько строк макроса. Но как правильно скопировать диапазон ячеек из excel в word я не знаю, причем в ворд мне нужно скопировать на середину листа. Помогите пожалуйста, макрос почти готов.

                    Листинг программы
                
 
                        
                          
                    
Const ИмяШаблона = "Письмо.dot"
Const РасширениеСоздаваемыхФайлов = ".doc"
Const Искомый текст = "Таблица"
Sub Сформировать()
r = Cells(Rows.Count, "A").End(xlUp).Row
'MsgBox r
ReplaceText = ActiveWorkbook.ActiveSheet.Range("A4:F" & r).Copy
ПутьШаблона = Replace(ThisWorkbook.FullName, ThisWorkbook.Name,ИмяШаблона)
Dim WA As Object, WD As Object: Set WA = CreateObject("Word.Application")
Filename = ActiveWorkbook.Path & "Письмо" & ActiveWorkbook.Name & РасширениеСоздаваемыхФайлов
Set WD = WA.Documents.Add(ПутьШаблона): DoEvents
DoEvents  
End Sub

Т.е. меня интересует как скпировать диапазон ячеек в word в определенное место.

Прошу прощения проблема с этой строкой в коде выше забыл одну ключевую строку а проблема именно в ней

                    Листинг программы
                
WD.Bookmarks("Таблица").Selection.Paste

Ниже привожу полный код моего макроса

                    Листинг программы
                
 
                        
                          
                    
Const ИмяШаблона = "Письмо.dot"
Const РасширениеСоздаваемыхФайлов = ".doc"
Const Искомый текст = "Таблица"
Sub Сформировать()
r = Cells(Rows.Count, "A").End(xlUp).Row
'MsgBox r
ReplaceText = ActiveWorkbook.ActiveSheet.Range("A4:F" & r).Copy
ПутьШаблона = Replace(ThisWorkbook.FullName, ThisWorkbook.Name,ИмяШаблона)
Dim WA As Object, WD As Object: Set WA = CreateObject("Word.Application")
Filename = ActiveWorkbook.Path & "Письмо" & ActiveWorkbook.Name & РасширениеСоздаваемыхФайлов
Set WD = WA.Documents.Add(ПутьШаблона): DoEvents
WD.Bookmarks("Таблица").Selection.Paste
DoEvents  
End Sub

Решение задачи: «Копирование таблицы из excel в word»

textual
                            Листинг программы 
                        
   dx.Worksheets(list).Range(ci).Copy' копирование в буфер региона 
   odoc.Bookmarks("Описание").Range.PasteExcelTable False, False, False