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

[junkey9009]

Доброго времени суток! Необходимо сделать загрузку таблиц из excel в word, в excel таблицы находятся на разных листах, в word эти таблицы должны быть просто друг за другом. Проблема состоит в том, что при переносе таблицы не идут друг за другом, а заменяются, и в итоге в документе остается только одна таблица - последняя. Очень прошу помочь, т.к. с vb пока не дружу(
Вот код:
Dim wrd As Word.Application
Dim ws As Worksheet
Set wrd = New Word.Application
For Each ws In ThisWorkbook.Sheets
ws.UsedRange.Copy
With wrd.Documents.Open(ThisWorkbook.Pat h & "\123.docx")
.PageSetup.Orientation = 1
.Range.PasteExcelTable False, False, False

[junkey9009]

Задача решена)
http://www.hardforum.ru/t94478/#post617701