Прошу помощи. - VB

Формулировка задачи:

Доброго времени суток, прошу помощи, если сможете.
вот база екселевская.
Vba excel
после того как ввели данные, они выводятся на 2ом листе. Когда вводишь опять, данные заменяются, а нужно что бы они записывались в следующей ячейке.

Решение задачи: «Прошу помощи.»

textual
                            Листинг программы 
                        

                            <font color="blue">Private</font> <font color="blue">Sub</font> CommandButton3_Click()

Worksheets(<font color="teal">"Лист1"</font>).Activate
k = <font color="darkblue"><b>1</b></font>
<font color="blue">Do</font> <font color="blue">Until</font> IsEmpty(Worksheets(<font color="teal">"Лист2"</font>).Cells(k, <font color="darkblue"><b>1</b></font>))
k = k + <font color="darkblue"><b>1</b></font>
<font color="blue">Loop</font>
Worksheets(<font color="teal">"Лист2"</font>).Cells(k, <font color="darkblue"><b>1</b></font>) = ComboBox1.Value
Worksheets(<font color="teal">"Лист2"</font>).Cells(k, <font color="darkblue"><b>2</b></font>) = TextBox3.Value

<font color="blue">End</font> <font color="blue">Sub</font>
                        