主题：[求助]插入行

老师，我表打开就设置了合并模式，如图
此主题相关图片如下：qq截图20160706150451.jpg

我现在插入行时，需要新插入的行额前面几列套用上一行数据，在合并模式下周末实现啊？

代码这样写，在合并模式下不能实现

Dim r As Row = Tables("工程款管理").Current
Dim nr As Row = Tables("工程款管理").InsertNew
For Each c As Col In Tables("工程款管理").Cols
    nr(c.Name) = r(c.Name)
Next