Hej.
Private Sub CommandButton1_Click()
Dim w As Long
With Worksheets("Baza")
w = WorksheetFunction.Max(.Cells(Cells.Rows.Count, "B").End(xlUp).Row, _
.Cells(Cells.Rows.Count, "C").End(xlUp).Row) + 1
.Cells(w, "B") = Me.TextBox1
.Cells(w, "C") = Me.TextBox2
End With
End Sub |