calculo de stock con macro

Hola foro nuevamente solicitando su ayuda urgente:
Necesito hacer una macro q me permita calcular el stock de un producto
determinado por mes, las columnas son fecha,producto,cantidad,esta en
un archivo de excel llamado producto.xls y la hoja se llama base.
Private Sub cmdavance_Click()
Dim cuenta As Integer
Dim fecha As Date
Dim producto As String
'crear y leer las fechas de cada fila o registro y comparar mas
adelante si esta en el rango
Set fecha = Worksheets("base").Range("A:A").Find(Dato,
LookIn:=xlValues)
'crear y leer de la columna B para identificar el producto
Set producto = Worksheets("base").Column("B")
If fecha >= 1 / 10 / 8 & fecha <= 31 / 10 / 8 Then
If producto = "leche" Then
cuenta = cuenta + 1
End
End
txtprod.Value = cuenta
end sub