Excel - mostrar en un listbox

hola foro!! saben deseo mostrar todos los resultados cuando el usuario escoga una opcion me muestre todos los resultados rapidamente?? como lo hago?? este es mi codigo:

Private Sub CommandButton1_Click()
Dim FechaI As Date
Dim FechaF As Date
Dim format As String
Dim Dato1 As String
Dim Dato As Date

FechaI = TextBox1.Value 'Donde tu pondrias 01/02/2009
FechaF = TextBox2.Value 'Donde tu pondrias 12/04/2009
'MsgBox "El resultado es " & format(FechaF - FechaI, 0) & " dias"

If UserForm1.OptionButton2.Value = True Then
Dato1 = "Pequeña"
End If
If UserForm1.OptionButton3.Value = True Then
Dato1 = "Mediana"
End If
If UserForm1.OptionButton4.Value = True Then
Dato1 = "Grande"
End If
If UserForm1.OptionButton5.Value = True Then
Dato1 = "Licitación"
End If
ULT = Sheets("INGRESOS").Range("E65536").End(xlUp).Row - 1
If Dato1 = Empty Then
MsgBox "selecione un Dato", vbCritical
Exit Sub
Else
fila = 2
contador = 0
For X = 1 To ULT
Dato = Cells(fila, 5).Value
DATO2 = Cells(fila, 15).Value
For w = FechaI To FechaF
If Dato = w And Dato1 = DATO2 Then
contador = contador + 1
ListBox1.AddItem contador & DATO2
End If
Next w
fila = fila + 1
Next X
Label3 = "Existe " & contador & " proyectos " & Dato1
End If

End Sub

gracias!!