Word VBA. Перенос данных из таблицы Excel в таблицу Word

[Megokelvin]

Прошу прокомментировать код, хочу скопировать диапазон из Excel в таблицу Word, но ни как не получается...
в чём ошибка?

 WA = GetObject(, "Word.Application") ' -- Запускаем Word
 Set WD = WA.Documents.Open(Filename:=TemplAd)
 ActiveWorkbook.Sheets("Лист1").Range("A2:H3").Copy

 WD.Tables(1).Rows(1).Cells(3).Select
 WD.Tables(1).Selection.MoveRight Unit:=wdCharacter, Count:=7, Extend:=wdExtend
 WD.Tables(1).Selection.MoveDown Unit:=1, Count:=myLstCaptionCount, Extend:=wdExtend
 WD.Tables(1).Selection.Paste