Contar los repetidos pero con criterios

[juan007]

Ya esta solucionado con la funcion SumaProducto...pero me gustaria saber como puedo llevar esta funcion a una macro, segun yo se ocupa de esta forma:

Application.WorksheetFunction.SumProduct(arg1,arg2 .......)as double

Pero no se como poner los argumentos y comparaciones que me resulto en la funcion y llevarla a la macro.

Asi es mi funcion que genere en la hoja:
=SUMAPRODUCTO(($A$5:$A$14=A5)*($B$5:$B$14=B5))

Esto como le llevaria a los argumentos:
Application.WorksheetFunction.SumProduct(arg1,arg2 .......)as double

Y otra consulta que tengo es que encontre dos formas ocupando la funcion:
=SUMAPRODUCTO(($A$5:$A$14=A5)*1;($B$5:$B$14=B5)*1)

y la Otra

=SUMAPRODUCTO(($A$5:$A$14=A5)*($B$5:$B$14=B5))

osea la diferencia es la multiplicacion *1 pero conceptualmente, los resultados son iguales.

De antemano se agradece