¿Cómo programo un listbox?

Sucede que tengo un userform, por donde ingreso una información, siempre se ingresan los mismos productos, así que quiero poner un listbox, cosa de que cada que ingrese, escojo el elemento de la lista, y cuando le doy ingresar, me lo guarda en una tabla de una hoja de excel, hasta ahora todo esta bien, tengo un código que se supone hace eso que estoy pidiendo, pero no se en que parte del código colocarlo. Es decir quiero que cuando abra el formulario de la macro, ya este cargada la lista, y que lo que escoja del listbox, me lo coloque en una celda, como si fuera un textbox.
Este es el código:
Private Sub CommandButton3_Click()
Dim contador As Integer
Range("B1").Select
contador = Val(Range("B1").Value)
contador = contador + 1
Range("B6").Select
ActiveCell.Value = Date
Selection.EntireRow.Insert
TextBox7 = Empty
TextBox8 = Empty
TextBox9 = Empty
TextBox10 = Empty
'Range("C2").Select
'ActiveCell.Value = Val(Range("B7").Value)
Range("B1").Select
ActiveCell.Value = contador
TextBox10.SetFocus
End Sub
Private Sub CommandButton4_Click()
UserForm3.Hide
TextBox7 = Empty
TextBox8 = Empty
TextBox9 = Empty
TextBox10 = Empty
TextBox10.SetFocus
Range("B6").Select
End Sub
Private Sub ListBox1_Click()
Range("C6").Select
ActiveCell.FormulaR1C1 = ListBox1
End Sub
Private Sub TextBox7_Change()
Range("E6").Select
ActiveCell.FormulaR1C1 = TextBox7
End Sub
Private Sub TextBox8_Change()
Range("D6").Select
ActiveCell.FormulaR1C1 = TextBox8
End Sub
Private Sub ListBox1_Change()
Range("C6").Select
ActiveCell.FormulaR1C1 = ListBox1
End Sub
Private Sub TextBox9_Change()
Range("F6").Select
ActiveCell.FormulaR1C1 = TextBox9
End Sub
Ahora este es la porcion del codigo que tengo, que se supone que hace lo que yo quiero:
Sheets("Existencias").Select
Range("B3").Select
Do While ActiveCell <> ""
ListBox1.AddItem ActiveCell
ActiveCell.Offset(1, 0).Select
Loop
Sheets("Entradas").Select
Finalmente, donde debo colocar el código, cosa de que cuando cargue el userform con el modulo, ya este en el listbox lo que necesito:
Este es el modulo:
Sub Entrada2()
Load UserForm3
UserForm3.Show
End Sub
De antemano gracias!