Метод MoveDown

[Sweety]

У меня с методом MoveDown некоторые проблемы.
Я выделяю таблицу, копирую ее, и пишу:
Selection.MoveDown Unit:=wdLine, Count:=1
потом,
Selection.TypeParagraph
Selection.Paste
Так вот, один раз курсор оказывается за пределами таблицы и вставляет таблицу как отдельную (то, что мне и надо).
А иногда не выходя из таблицы просто образует в ней же новые строки. А мне так совсем не надо ((

Что можно сделать?

[GSerg]

Мож взять range таблицы, узреть его end, и сделать этому end goto?

[Sweety]

Написала вот таким образом:

Selection.GoTo What:=wdGoToLine, Count:=Selection.Range.End

Вроде бы пока работает.
Спасибо.