Visual Basic para Aplicaciones - ¿Como rellenar un listbox en visual de excel

Hola, quiero rellenar un listbox en visual aplicado a excel, he hecho esto:
do while not isempty(activecell)
listbox.value=activecell.value
activecell.offset(1,0).activate
pero no me funciona, querria ir rellenando el listbox con cada casilla que voy recorriendo y que cada uno se pusiera debajo del otro en el listbox.
Haber quien me puede echar una mano.
Gracias

viejo si lo que estoy pensando que usted quiere hacer es rellenar un list box con los valores que tiene en una determinada columna entonces lo que debe hacer es utilizar el metodo additem y acondicionar el codigo que tiene actualmente asi:

Do while not isempty(activecell)
listbox1.additem=activecell.value
activecell.offset(1,0).activate
Loop