Dim dr As Row = Tables("表B").Rows(Tables("表B").Rows.Count - 1)
Dim new As Row = Tables("表B").AddNew()
new("第一列") = dr("第一列")