Из Form в ListObject/ получается мимо таблицы

[kentd]

Private Sub CommandButton2_Click()

Dim sh As Worksheet
Set sh = ThisWorkbook.Sheets("Ëèñò2")
Dim last_Row As Long
last_Row = Application.WorksheetFunction.Count A(sh.Range("A:A"))

'Validations_______________________ _________
If Me.TextBox2.Value = "" Then
MsgBox "Ââåäèòå ¹ Çàêàç Íàðÿäà", vbCritical
Exit Sub
End If


sh.Range("A" & last_Row + 1).Value = "=Row()-1"
sh.Range("B" & last_Row + 1).Value = Me.TextBox2.Value
sh.Range("C" & last_Row + 1).Value = Me.TextBox3.Value
sh.Range("D" & last_Row + 1).Value = Me.TextBox4.Value
sh.Range("E" & last_Row + 1).Value = Me.TextBox5.Value
sh.Range("F" & last_Row + 1).Value = Me.TextBox6.Value
sh.Range("G" & last_Row + 1).Value = Me.ComboBox5.Value
sh.Range("H" & last_Row + 1).Value = Me.ComboBox1.Value
sh.Range("I" & last_Row + 1).Value = Me.ComboBox2.Value
sh.Range("J" & last_Row + 1).Value = Me.TextBox8.Value
sh.Range("K" & last_Row + 1).Value = Me.ComboBox3.Value
sh.Range("L" & last_Row + 1).Value = Me.ComboBox4.Value
sh.Range("M" & last_Row + 1).Value = Now

[MikeVol]

Здравствуйте. Неужели в интернете нет подходящей темы с вашим вопросом или лень искать, а может вас в Google забанили? Допиливайте сами под ваши нужды.

    ' Объявляем переменные
    Dim ws As Worksheet
    Dim tbl As ListObject
    Dim newRow As ListRow
    
   ' Замените "Sheet1" на имя листа, где находится ListObject  
    Set ws = Worksheets("Sheet1")
    
   ' Замените "Table1" на имя вашего ListObject
    Set tbl = ws.ListObjects("Table1")
    
    ' Добавить новую строку в ListObject
    Set newRow = tbl.ListRows.Add
    
    ' Вставка значений в ListObject из UserForm
    newRow.Range(2) = TextBox1.Value
    newRow.Range(3) = TextBox2.Value
    newRow.Range(4) = TextBox3.Value
    ' и так далее перечисляете все свои TextBox-ы сколько их у вас на форме
    
    ' Очистить TextBox для ввода следующих данных
    TextBox1.Value = ""
    TextBox2.Value = ""
    TextBox3.Value = ""

    ' Удачи вам. И научитесь пользоваться поиском в Google!

[kentd]

Чёткий, понятный код.
у кого как ни у Вас искать ответ
Огромное СПАСИБО за профессионализм.

[kentd]

MikeVol, Огромное Вам СПАСИБО! всё понятно, а по поиску даётся обрезанный материал который новичок "жуёт жуёт а проглотить не может"

[MikeVol]

kentd, Здравствуйте. Давненько не заходил я сюда. Вот вам статья про ListObject, если конечно знаете хоть чуточку Английский язык. Ну если не знаете то переводчик поможет. Удачи вам.