我有一个带有Submit按钮的用户表单，用于在名为“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从右边或下面”。