想在excel中新建一个数据更新功能

本人是VBA的菜鸟，故来求助各位大神。
是这样的，我现在有一个数据库，然后想另建一个sheet名叫DATA UPDATE，然后允许使用者在DATA UPDATE把信息输入进去，然后点击一个按钮，EXCEL自动把输入的信息更新到DATABASE这个SHEET中有数据的下一行。这样就不用使用者要更新数据的时候还要翻到数据表的最后一行手动收入，这样也能更好的保护数据。
求助大神们拉！ excel VBA 数据更新 在DATAUPDATE上添加一个按钮，双击写入代码：
Private Sub CommandButton1_Click()
    Sheets("DATA UPDATE").Select
    Range("A2:E2").Select
    Selection.Copy
    Sheets("DATABASE").Select
    
    Sheets("DATABASE").Cells(Sheets("DATABASE").UsedRange.Rows.Count + 1, 1).Select
    ActiveSheet.Paste
    Sheets("DATA UPDATE").Select
    Range("A3").Select
End Sub

Sub CommandButton1_Click()

    '确定DATABASE的下一行

    Dim iR As Long

    iR = Sheets("DATABASE").Range("a65536").End(xlUp).Row + 1

    ''复制数据

    Sheets("data update").Range("a1:g1").Copy Sheets("database").Cells(iR, 1)

End Sub

补充：VB ,  VBA