Visual Basic para Aplicaciones - por favor una ayuda con la listbox

hola amigos:
Estoy tratando de resolver un problema con la listbox en una hoja de calculo, pienso que debe ser facil, pero no estoy seguro como hacerlo funcionar como debe. El funcionamiento es simple toco una celda de la hoja y aparece toda la linea entera en la listbox. Como lo hice yo funciona el problema es la primera pone la linea que yo elegi el problema sucede con la segunda linea que va debajo de la primera que puse es que

A B en la listbox
camisa 3 camisa 3 aca funciona bien pero
silla 5 si pongo la segunda
linea esto es lo que
ocurre.

A B en la listbox
camisa 3 camisa 5
silla 5 silla.

Elimina la celda B de la primera y la remplaza en la segunda. Les mando la rutina simple que hice

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
n = 0
x = ActiveCell.Offset(0, 0).Value
y = ActiveCell.Offset(0, 1).Value
Worksheets("Farmacia interna").ListBox1.AddItem x
Worksheets("Farmacia interna").ListBox1.List(n, 1) = y
n = n + 1
End Sub
Si alguien tiene idea que debo hacer les pido una ayudita
pablo