Filtrar entradas en un listbox

Asumiré que las entradas al listbox, corresponderán a aquellas celdas que tengan un 2 (dos) en la columna a la derecha de la que estoy evaluando. Si no tuviera ese valor no será incluida en al lista.
En este caso el código sería:
On Error Resume Next
For Each Cell In AllCells
If Cell.Offset(0,1).value =2 Then NoDupes.Add Cell.Value, CStr(Cell.Value)
Next Cell
On Error GoTo 0
Pruébalo y dime.
Esto debería resolver tu pregunta. Si así fuera, agradeceré un comentario y que la finalices.
Si no, pregúntame de nuevo.
Un abrazo!
Fernando
*====================================*
(Considera que la valoración que figura predeterminada
es 3/5. Tal vez quieras cambiarla...)
En caso contrario, puedes preguntarme nuevamente
aclarando qué entendí mal o qué faltó.

A pesar de que al verificar visualmente se nota que ejecuta los pasos correctamente, no agrega ninguna dato al listbox, ¿se te ocurre porque?
Te adjunto el procedimiento completo:
Dim AllCells As Range, Cell As Range
Dim NoDupes As New Collection
Dim i As Integer, j As Integer
Dim Swap1, Swap2, Item
Worksheets("comprobantes").Select
Set AllCells = Range("c2:c2005")
On Error Resume Next
For Each Cell In AllCells
If Cell.Offset(0, -2).Text = cbx_companias.Text Then NoDupes.Add Cell.Value, CStr(Cell.Value)
Next Cell
On Error GoTo 0
For i = 1 To NoDupes.Count - 1
For j = i + 1 To NoDupes.Count
If NoDupes(i) > NoDupes(j) Then
Swap1 = NoDupes(i)
Swap2 = NoDupes(j)
NoDupes.Add Swap1, before:=j
NoDupes.Add Swap2, before:=i
NoDupes.Remove i + 1
NoDupes.Remove j + 1
End If
Next j
Next i
For Each Item In NoDupes
usf_search.cbx_fgfecha.AddItem Item
Next Item