Contar..

Hola! Alguien me puede ayudar con este código:
If TextBox2 = Empty Or TextBox3 = Empty Then
MsgBox "Ingrese fechas", vbCritical
Else
If OptionButton1 = True Then
Verificador2 = "Gobierno-Defensa y Salud"
End If
If OptionButton2 = True Then
Verificador2 = "Banca-Retail y Servicios financieros"
End If
If OptionButton3 = True Then
Verificador2 = "Minería-Industria y Regiones"
End If
Dim FechaI As Date
Dim FechaF As Date
Dim format As String
Dim Dato1 As String
Dim Dato As Date
FechaI = TextBox2.Value 'Donde tu pondrias 01/02/2009
FechaF = TextBox3.Value 'Donde tu pondrias 12/04/2009
Dato1 = ComboBox1.Value
ULT = Sheets("INGRESOS").Range("E65536").End(xlUp).Row - 1
fila = 2
contador = 0
For X = 1 To ULT
Gcomercial = Cells(fila, 10).Value
Dato = Cells(fila, 5).Value
dato2 = Cells(fila, 2).Value
For w = FechaI To FechaF
If Dato = w And Dato1 = dato2 And Gcomercial = Verificador2 Then
contador = contador + Cells(fila, 16).Value
End If
Next w
fila = fila + 1
Next X
Label4 = contador
End If
End Sub
¿Y necesito contarlos los proyecto que hizo el ingeniero según el rango de fecha que ingreso (NO SUMARLOS) Y no se como modificarlo?
¿Alguien sabe? Que me ayude.
Gracia.