尝试在 VBA 中编写一个提交按钮，将用户窗体数据插入数据库，但我似乎无法在标题下方插入第一行

Question

全面披露，我在 VBA 方面非常糟糕，基本上只是将工作簿的所有代码与 Stack 解决方案、YT 教程、免费 UDEMY 课程和 ChatGPT 混合在一起。

我有这个带有提交、更新、重置和退出按钮的用户表单。此用户表单将数据提交到一个名为“database2”的带有标题工作表的表中。问题出在“提交”按钮上，更准确地说，是子项的添加顶行部分。我试着用宏来做，没有宏，试着录制宏来查看代码，但我就是想不通。

所以提交按钮应该：

• 在工作表“database2”的表格顶部添加一个新行，并保持与上一行相同的公式和格式（我认为因为它是一个表格，它会自动执行格式和公式）
• 将数据从用户窗体复制到表
• 清除用户表单
• 通过宏刷新列表框中的数据
• 保存工作簿
• 提示消息

MSO 2021

这是代码

Private Sub btnsubmit_Click()
    

    range("A2").Select
    Selection.ListObject.ListRows.Add (1)

range("A2").Value = Now
range("B2").Value = Me.cmbor
range("C2").Value = Me.cmbun
range("D2").Value = Me.cmbna
range("E2").Value = Me.cmbad
range("F2").Value = Me.cmbci
range("G2").Value = Me.cmbprod
range("H2").Value = Me.cmbm
range("I2").Value = Me.cmbh
range("J2").Value = Me.cmb2
range("K2").Value = Me.cmbj
range("L2").Value = Me.cmbx
range("M2").Value = Me.cmbsc
range("X2").Value = Me.cmbtr

Me.cmbor.Value = ""
Me.cmbun.Value = ""
Me.cmbna.Value = ""
Me.cmbad.Value = ""
Me.cmbci.Value = ""
Me.cmbprod.Value = ""
Me.cmbm.Value = ""
Me.cmbh.Value = ""
Me.cmb2.Value = ""
Me.cmbj.Value = ""
Me.cmbx.Value = ""
Me.cmbsc.Value = ""
Me.cmbtr.Value = ""

Call Refresh_Data

ThisWorkbook.Save

MsgBox "Uploaded"


End Sub

提前致谢，如果我忘记或没有在帖子中做正确的事情，我深表歉意，这是我第一次！

我尝试了一切，哈哈，但实际上，我尝试了多个教程，但我什至不确定是什么了。宏，addrows，“shift xl1up copyformat from right or below”

已经超过 2 周了，我非常沮丧，因为它应该是这么简单的事情，我就是无法理解它。

''' 入侵学校或政府系统？当然没问题！

在 Excel 表格中添加一行？抱歉，先生，您不能再继续了，这部分仅供成年人使用。 '''

这让我快要死了