Visual Basic para Aplicaciones - problemas con el listbox

CODIGO:

Private Sub consulta_de_bases(s)

Dim rng As Range
Dim I As Integer
Dim J As Integer
Dim k
Dim v

Worksheets("EXISTBOD").Activate

I = 2
k = I
J = I

Do
J = J + 1
v = Worksheets("EXISTBOD").Cells(J, 1)
Loop Until v = ""

lstdespliega.ColumnCount = 4
Set rng = Worksheets("EXISTBOD").Range(Worksheets("EXISTBOD").Cells(k, 1), _
Worksheets("EXISTBOD").Cells(J, 10))
lstdespliega.RowSource = rng.Address
lstdespliega.BoundColumn = 1
lstdespliega.ColumnWidths = "60;200;65;65"
lstdespliega.ListStyle = fmListStyleOption

Set rng = Nothing
Set k = Nothing
Set v = Nothing


End Sub

BASE DE DATOS: LISTBOX



PREGUNTA: TENGO UNA HOJA DE EXCELL DONDE TENGO UN INVENTARIO EN EL CUAL EXISTEN PRODUCTOS EN LA CELDA J O 10 CON VALORES DE CERO ; QUE TENGO QUE HACER PARA QUE EN EL EJEMPLO DE ARRIBA AL DESPLEGARSE EL LISTBOX NO ME SAQUE LOS CEROS SOLO QUE SAQUE LOS PRODUCTOS QUE TENGAN UNA CANTIDAD MAYOR A CERO PERO ME MARCA ERROR.