主题：点击按钮写入到下一行

各位老师请帮忙，我设计了一个录入的窗口，下面的代码是按照系统帮助复制上去的，现在想实现如果我查找出来内容信息，在原来的内容信息空白处填写内容后点击新增按钮，这条信息不覆盖原来内容，新增一行写入。请大师帮忙代码怎么写。

With Tables("冷轧日报")  
    Tables("冷轧日报").Current.Locked = False
    If.Current IsNot Nothing Then
        .Current.Save()
End If
    If .Current Is Nothing OrElse .Current.DataRow.RowState = DataRowState.Unchanged Then '如果当前行未曾修改
        Tables("冷轧日报").AddNew()
    End If
End With