我完全懂你的困扰——原来的代码用PasteAppendTable总是把行粘到目标表格顶部，而你那套临时添加再删除行的办法，不仅代码啰嗦，还总觉得不够优雅对吧？这里有两个更简洁可靠的方案，完美解决你的需求：

方案一：定位到表格末尾再粘贴 #

这个思路是先把光标移到目标表格最后一行的末尾，再执行粘贴操作，让Word自动在末尾追加新行：

' 复制源表格中指定的第R行
mWrdTbl.Rows(R).Range.Copy

' 将光标定位到目标表格最后一行的末尾
adWrdTbl.Rows(adWrdTbl.Rows.Count).Range.Collapse Direction:=wdCollapseEnd

' 以追加表格的方式粘贴内容，自动在末尾生成新行
adWrdTbl.Range.PasteAppendTable

方案二：先添加新行再粘贴 #

这个方法更直观，直接在目标表格末尾新增一行，然后把内容粘贴到这行里：

Dim targetNewRow As Word.Row

' 在目标表格末尾添加一行（指定After参数确保是最后一行）
Set targetNewRow = adWrdTbl.Rows.Add(After:=adWrdTbl.Rows(adWrdTbl.Rows.Count))

' 复制源表格指定行
mWrdTbl.Rows(R).Range.Copy

' 粘贴到新添加的行中
targetNewRow.Range.PasteAppendTable

为什么原来的代码会粘到顶部？ #

你之前用adWrdTbl.Range.PasteAppendTable时，Word是基于表格的整个范围来处理粘贴操作，默认会把内容插入到表格的起始位置，这就是为什么行跑到顶部去了。上面的两种方案都通过明确指定粘贴位置，避免了这个问题。

相比你的临时方法，这两个方案既没有多余的添加/删除行操作，也更适配各种表格格式（比如带合并单元格的表格），稳定性和可读性都强很多。

内容的提问来源于stack exchange，提问作者genespos