Incrementar los objetos en una listbox, verticalmente

Tengo un formulario para filtrar ciertas columnas mi problema es que al filtrar una de ellas no me responde Excel y verificando me di cuenta, que la respuesta es mayor a 250 registros por eso no me los despliega, me despliega bien mientras no sea mayor a 250, estoy usando este código.

If nivel1 > "" And estacion1 = "" Then
    Var = Sheets("Planta1").Cells(Fila, 5)
    If Sheets("Planta1").Cells(Fila, 5) = dato1 Then,     aki filtrando con excel son 409 registros
        'Copia los datos de la celda list box
        a = ListBox2.ListCount
        ListBox2. AddItem
        ListBox2.List(a, 0) = Sheets("Planta1"). Cells(Fila, 1)
        ListBox2.List(a, 1) = Sheets("Planta1"). Cells(Fila, 2)
        ListBox2.List(a, 2) = Sheets("Planta1"). Cells(Fila, 3)
        ListBox2.List(a, 3) = Sheets("Planta1"). Cells(Fila, 4)
        ListBox2.List(a, 4) = Sheets("Planta1"). Cells(Fila, 5)
        ListBox2.List(a, 5) = Sheets("Planta1"). Cells(Fila, 6)
    End If
    End If