Запись в таблицу Word из Excel - VBA

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

Уважаемые ГУРУ, в Excel док-е имеется лист с данными, которые необходимо добавлять в таблицу. Проблема собственно в том, что при копировании данных нужно использовать Range и в моем коде при попытке перейти на следующую строку выставляется символ каретки. Таким образом записи делаются в одной ячейке таблицы. Вот код, пожалуйста укажите на ошибки.

Function Paste_Code()
Dim Range4 As Range
Sheets(2).Activate
    ' artefact_2 закладка в 1 столбце, 2 строки таблицы
    Set RangeWD = WordDoc.bookmarks("artefact_2").Range
    i = 3 ' идент. строк, для перемещения RangeWD в пустую строку (1 и 2 строки имеются)
        For Each Range4 In Range("C2", Cells(Rows.Count, "C").End(xlUp))
            RangeWD.Text = Range4.Text
            WordDoc.Tables(4).Range.Rows.Add 
            RangeWD = RangeWD.SetRange(RangeWD.End, RangeWD.End) 
            RangeWD = WordDoc.Tables(4).Cell(i, 1).Range
            RangeWD = RangeWD.SetRange(RangeWD.End, RangeWD.End)
            i = i + 1
        Next
End Function

P/s RangeWD объявленна глобально как объект

Решение задачи: «Запись в таблицу Word из Excel»

textual
                            Листинг программы 
                        

                                    RangeWD.Text = Range("C2")
        For Each Range4 In Range("C3", Cells(Rows.Count, "C").End(xlUp))
            WordDoc.Tables(4).Rows.Add
            WordDoc.Tables(4).Cell(i, 1).Range.Text = Range4
            i = i + 1
        Next
                        