при сохранении 2-й записи выдаёт ощибку
Private Sub CommandButton2_Click()
Dim sh As Worksheet
Set sh = ThisWorkbook.Sheets("Ëèñò2")
Dim last_row As Long
last_row = Application.WorksheetFunction.CountA(sh.Range("A:A"))
'Validations________________________________
If Me.TextBox2.Value = "" Then
MsgBox "Ââåäèòå ¹ Çàêàç Íàðÿäà", vbCritical
Exit Sub
End If
'îáúÿâëÿåì ïåðåìåííûå
Dim ws As Worksheet
Dim tbl As ListObject
Dim newRow As ListRow
Set ws = Worksheets("Ëèñò2")
Set tbl = ws.ListObjects("baza_tb")
Set newRow = tbl.ListRows.Add
' Âñòàâêà çíà÷åíèé â ListObject èç UserForm
newRow.Range(1) = "=Row()-1"
newRow.Range(2) = TextBox2.Value
newRow.Range(3) = TextBox3.Value
newRow.Range(4) = StrConv(TextBox4.Value, 3)
newRow.Range(5) = StrConv(TextBox5.Value, 3)
newRow.Range(6) = StrConv(TextBox6.Value, 3)
newRow.Range(7) = TextBox10.Value
newRow.Range(8) = ComboBox1.Value
newRow.Range(9) = ComboBox2.Value
newRow.Range(10) = TextBox8.Value
newRow.Range(11) = ComboBox3.Value
newRow.Range(12) = ComboBox4.Value
newRow.Range(13) = Now
'_______________________________________
TextBox2.Value = ""
TextBox3.Value = ""
TextBox4.Value = ""
TextBox5.Value = ""
TextBox6.Value = ""
TextBox10.Value = ""
ComboBox1.Value = ""
ComboBox2.Value = ""
TextBox8.Value = ""
ComboBox3.Value = ""
ComboBox4.Value = ""
'______________________________
Call Refresh_Data
End Sub
