主题：设置插入行的复制单元格数据问题

请教老师，下面代码，存在的问题是：不能把最后一行单元格的数据复制到插入新增的第一行的单元格中

Dim t As Table = Tables("年报")
Dim nr As Row = t.InsertNew                    '插入新增行
If Tables("年报").Position = 0  Then            '如果第一行是新增行，也是第一行，表格中无其他行时
    nr("去年上报时间") = Nothing                  '新增行单元格为空值
Else
    Dim cr As Row = t.rows(t.Position+1)     '如果表中有其他行，定位到最后一行
    If cr IsNot Nothing Then                        '如果最后一行存在
        nr("去年上报时间") = cr("本年上报时间") '最后一行的cr 复制到第一行的nr
    End If
End If