Contar los repetidos pero con criterios

[juan007]

Compañeros(as)

Necesito contar los repetidos pero con cierto criterio, les explico.

Nombre-->Calificacion
Pedrito--->2
Pedrito--->2
Pedrito--->3
Pedrito--->3
Pedrito--->3
Pedrito--->3
Pedrito--->5
Pedrito--->5
Pedrito--->5
Pedrito--->5
Pedrito--->5
Juanito--->9
Juanito--->9
Juanito--->9
Juanito--->9
Juanito--->5
Juanito--->5
Juanito--->5
Juanito--->5
Juanito--->5
Juanito--->5
Juanito--->5


Entonces mi dea es contar cuantas veces esta repetido pedrito pero con la calificacion, osea pedrito esta 2 veces repetido con la calificacion 2, 4 veces repetido con la calificacion 3 y 5 veces esta repetido con la calificacion 5....lo mismo con juanito, esta repetido 4 veces con la calificacion 9......espero haberme explicado bien.

Serian tan amables de ayudarme de antemanos se les agradece.

Saludos desde CHILE

[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