Помогите разобраться с Комбобоксом для Эксел - VB

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

Привет всем!!! Помогите разобраться в таком вопросе .В Эксел на языке VBA мне нужно создать форму .На эту форму поместить кнопку для выхода и ComboBox. Задача такая :
В выпадающем списке ComboBox у меня дожны находиться фамилии которые я сам определю.После выбора фамилии в ComboBox она должна появиться в ячейке листа Эксел ,скажем в A1. Если мне нужно будет ввести новую фамилию то я просто вписываю её в ComboBox и она после этого появляется в выпадающем списке ComboBox

Решение задачи: «Помогите разобраться с Комбобоксом для Эксел»

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

                            <font color="blue">Private</font> <font color="blue">Sub</font> ComboBox1_KeyDown(<font color="blue">ByVal</font> KeyCode <font color="blue">As</font> MSForms.ReturnInteger, <font color="blue">ByVal</font> Shift <font color="blue">As</font> <font color="blue">Integer</font>)
<font color="blue">If</font> KeyCode = <font color="darkblue"><b>13</b></font> <font color="blue">Then</font>
 <font color="blue">For</font> <font color="blue">Each</font> m <font color="blue">In</font> Range(Cells(<font color="darkblue"><b>1</b></font>, <font color="darkblue"><b>2</b></font>), Cells(Cells(Rows.Count, <font color="darkblue"><b>2</b></font>).<font color="blue">End</font>(xlUp).Row, <font color="darkblue"><b>2</b></font>))
  <font color="blue">If</font> CStr(m.Value) = CStr(<font color="blue">Me</font>.ComboBox1.Value) <font color="blue">Then</font> <font color="blue">GoTo</font> Exist
 <font color="blue">Next</font>
 Cells(Cells(Rows.Count, <font color="darkblue"><b>2</b></font>).<font color="blue">End</font>(xlUp).Row, <font color="darkblue"><b>2</b></font>).Offset(<font color="darkblue"><b>1</b></font>, <font color="darkblue"><b>0</b></font>).Value = <font color="blue">Me</font>.ComboBox1.Value
 <font color="blue">Me</font>.ComboBox1.RowSource = <font color="teal">"b1:b"</font> & Cells(Rows.Count, <font color="darkblue"><b>2</b></font>).<font color="blue">End</font>(xlUp).Row
Exist:
 <font color="blue">Exit</font> <font color="blue">Sub</font>
<font color="blue">End</font> <font color="blue">If</font>
<font color="blue">End</font> <font color="blue">Sub</font>

<font color="blue">Private</font> <font color="blue">Sub</font> UserForm_Activate()
 <font color="blue">Me</font>.Combobox1.controlsource=<font color="teal">"A1"</font> <font color="00AA00">'адрес ячейки, для вставки значения с комбобокса</font>
 <font color="blue">Me</font>.ComboBox1.RowSource = <font color="teal">"b1:b"</font> & Cells(Rows.Count, <font color="darkblue"><b>2</b></font>).<font color="blue">End</font>(xlUp).Row <font color="00AA00">'массив списка</font>
<font color="blue">End</font> <font color="blue">Sub</font>


                        