Добавление строки после первой строки в таблице, имеющей только одну строку

Используйте Rows.Add без параметра, и новая строка будет вставлена ​​в конец таблицы. Параметр (как указано в разделе справки для Rows.Add) позволяет коду вставлять новые строки перед конкретной строкой.

Чтобы работать с новой строкой, объявите переменную объекта и присвойте ей строку при ее создании. Это также хорошая идея сделать это с объектом Table. Таким образом, можно обращаться к объектам напрямую, вместо того, чтобы всегда использовать что-то вроде rng.Tables(index).Rows(index), это не только проще читать и писать, он также выполняется быстрее.

Итак, основываясь на коде в вопросе, моя рекомендация:

Dim tbl as Word.Table, rw as Word.Row
Set tbl = rng.Tables(1)
Set rw = tbl.Rows.Add
rw.Cells(1).Range.Text = "cell content"
rw.Cells(2).Range.Text = "other cell content"

Может быть, я не совсем понимаю ваш вопрос, но когда я открываю файл Word и создаю таблицу с 1 строкой (в качестве заголовка) и 2 столбцами и вводю «Страна» и «Партнер», тогда я могу создать новую строку в эта таблица с этим кодом:

Option Explicit

Sub addRow()
Dim tbl As Table

'set tble variable to Table with Index 1 in your document
Set tbl = ActiveDocument.Tables(1)

'add a row to this table at the end
tbl.Rows.Add

'get last row in this table
Dim lastRow As Variant
lastRow = ActiveDocument.Tables(1).Rows.Count

'write to the last row
ActiveDocument.Tables(1).Cell(lastRow, 1).Range = "your value in last row / column 1"
ActiveDocument.Tables(1).Cell(lastRow, 2).Range = "your value in last row / column 2"


End Sub

Вы сказали, что в вашем списке только одна строка. Этот код теперь добавляет строку и заполняет в столбцах 1 и 2 значение, которое находится справа от знака равенства. До сих пор неясно, что такое UT и откуда он взялся. Но в любом случае вы можете получить доступ к последним ячейкам с помощью этого кода.