Contar palabras "que empiecen por" condicionadas

He tratado de hacerlo con fórmulas y no lo consigo, pero con macros ya lo he solucionado, busco la inicial que tengo colocada en la celda E2 (en este caso "G") y cuenta todos los apellidos que empiezan con esa letra y en la casilla de suscriptores tienen una "X" (En la columna B) y pongo el resultado en la F2 y ademas suma la cantidad el total de esa cantidad lo pongo en la G2. El resultado lo puedes poner donde tú quieras y la inicial de los apellidos también, solo tendrías que modificar esos valores en la macro. Para colocar esta macro, selecciona la pestaña de la hoja en la que trabajas y pincha con el ratón rderecho en la pestaña y selecciona VER CÓDIGO, en la pantalla que te sale, pega este código en la parte derecha.
Espero que te sirva. Yo por otra parte intentare solucionarlo con fórmulas, pero lo veo difícil.
Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Column < 4 Then
    busco = UCase(Range("e2"))
    With Range("a:a")
        Set c = .Find(busco, LookIn:=xlValues)
        If Not c Is Nothing Then
            firstAddress = c.Address
            Do
                If UCase(Left(c, 1)) = busco And UCase(c.Offset(0, 1)) = "X" Then
                    cuenta = cuenta + 1
                    pasta = pasta + c.Offset(0, 2)
                End If
                Set c = .FindNext(c)
            Loop While Not c Is Nothing And c.Address <> firstAddress
        End If
        Range("f2") = cuenta
        Range("g2") = pasta
    End With
    End If
End Sub