Последовательный номер с использованием текстового поля (VBA)

Question

Проблема, с которой я получил текстовое поле, даёт ордеру другому текстовому полю последовательный номер.пример

Это моя пользовательская форма

(Textbox1 ) (TextBox2)
Product:     Number:
Door car    4

А это мои листы Excel:

Product:    Number:
Door Car    1
Door Car    2
Door Car    3
Door Car    4

Спасибо, и извините за мой английский ..

Answer 1

Пользовательские коды

Private Sub CommandButton1_Click()
Dim sht As Worksheet
Dim i As Long

Set sht = Worksheets("Sheet1")

    If Not IsNull(Me.TextBox2) Then
        For i = 1 To Val(Me.TextBox2)
            sht.Cells(i + 1, 1) = Me.TextBox1
            sht.Cells(i + 1, 2) = i
        Next i
    End If

Set sht = Nothing
End Sub

Редактировать: для ввода последней строки попробуйте следующий код.

Private Sub CommandButton1_Click()
Dim sht As Worksheet
Dim lasRow As Long
Dim i As Long

Set sht = Worksheets("Sheet1")
lasRow = sht.Cells(Rows.Count, "E").End(xlUp).Offset(1)

    If Not IsNull(Me.TextBox4) Then
        For i = 1 To Val(Me.TextBox4)
            sht.Cells(Rows.Count, "E").End(xlUp).Offset(1) = Me.TextBox4
            sht.Cells(Rows.Count, "E").End(xlUp).Offset(0, 1) = Me.ComboBox5
        Next i
    End If

Set sht = Nothing
End Sub