Agregar Datos de Columnas a Listbox VBA excel

B tardes, 

Actualmente me encuentro desarrollando una macro en excel que es como un tablero, esta macro se alimenta por medio de conexiones de otro excel y a medida que se agrega una fila en el otro excel automáticamente se jala para mi macro esta fila. El problema comienza con que la conexión me jala bien dato pero al darle agregar en mi list box no me aparecen todo los datos. El código que tengo actualmente es este.

ListBox1. Clear
valor = ComboBox1.Value & ComboBox5.Value
Sheets("CICLO FACTURACION").Select
Set busca = Sheets("CICLO FACTURACION").Range("z:z").Find(valor, LookIn:=xlValues, lookat:=xlPart)
If Not busca Is Nothing Then
ubica = busca.Address
Do
ubica2 = "$x$" & busca.Row
ListBox1.AddItem Range(ubica2)
i = ListBox1.ListCount - 1
ListBox1.List(i, 1) = Range(ubica2).Offset(0, 24)
ListBox1.List(ListBox1.ListCount - 1, 1) = Range(ubica2).Offset(0, -10)
ListBox1.List(i, 2) = Range(ubica2).Offset(0, -11)
If Not IsError(Range(ubica2).Offset(0, -4)) Then
ListBox1.List(i, 4) = Range(ubica2).Offset(0, -4)
End If
ListBox1.List(i, 3) = Range(ubica2).Offset(0, -1)
ListBox1.List(i, 5) = Range(ubica2).Offset(0, -13)
Set busca = Sheets("CICLO FACTURACION").Range("z:z").FindNext(busca)
Loop While Not busca Is Nothing And busca.Address <> ubica
End If
End Sub

No se si el código de pronto no esta recorriendo todos los datos y no los esta agregando todos.