Subtotales de una columna en Excel

Lo que pretendes se puede resolver fácilmente mediante una macro:
Supone los datos en columna B (cabecera en fila 3 y los datos debajo sin importar el número de filas)
Escribirá la respuesta en la columna E a partir de la celda 4.
Esta es la macro:
Sub Agrupa()
Dim i, j As Long
Dim NumeroFilas As Long
Dim Dato As String
Dim Hubo As Boolean
'Primero calculamos el número de filas que tienen los datos
Range("B3").Select
While ActiveCell.Value <> ""
i = i + 1
ActiveCell.Offset(1, 0).Select
Wend
NumeroFilas = i - 1
'Ahora lo escribimos
For i = 1 To NumeroFilas
Dato = Cells(3 + i, 2)
Range("E4").Select
While ActiveCell.Value <> ""
'si lo encuentra que lo agrupe
If ActiveCell.Value = Dato Then
ActiveCell.Offset(0, 1) = ActiveCell.Offset(0, 1) + 1
Hubo = 1
End If
ActiveCell.Offset(1, 0).Select
Wend
If Hubo = 0 Then
'si no lo encuentra que lo escriba
ActiveCell.Value = Dato
ActiveCell.Offset(0, 1) = 1
End If
Hubo = 0
Next i
Range("B3").Select
End Sub
Si tienes alguna duda dímela.