Как сделать макрос вставки строк?

[Григорий_краснодар]

Я не работал раньше в excel, на для решения мелких бытовых учётов, возникла проблемка:
Нужно при нажатии на кнопку перенести значения трёх текстовых полей
Forms.TextBox.1
Forms.TextBox.2
Forms.TextBox.3
на другой лист Лист2, и добавить их в конец списка.
Как это решить с помощью макроса?

[The_Prist]

Dim lLastRow as long
With Sheets("Лист2")
lLastRow = .Cells(rows.count,1).end(xlup).row + 1
.cells(lLastRow,1) = Forms.TextBox.1
.cells(lLastRow,2) = Forms.TextBox.2
.cells(lLastRow,3) = Forms.TextBox.3
End with