Excel - ¿cómo agrupar en una sola frase las asignaturas y calificaciones agrupando las que coincidan?

Function ConcatenaRe(Rango As Range, Frase As String) As String

On Error GoTo Salir:

    Resultado = ""

    For Each Celda In Rango

        If UCase(Celda.Offset(0, 1)) = UCase(Frase) Then Resultado = Resultado & IIf(Resultado = "", "", ", ") & Celda

    Next

    If Resultado <> "" Then ConcatenaRe = Resultado & ": " & Frase

    Exit Function

Salir:

    ConcatenaRe = "#ERROR!"

End Function

Function ConcatenaRe(Rango As Range) As String

On Error GoTo Salir:

    Resultado = ""

    For Each Celda2 In Rango

        SubResultado = ""

        If (Celda2.Offset(0, 1) <> "") And (InStr(txtCelda2, Celda2.Offset(0, 1)) = 0) Then

           For Each Celda In Rango

               If UCase(Celda.Offset(0, 1)) = UCase(Celda2.Offset(0, 1)) Then SubResultado = SubResultado & IIf(SubResultado = "", "", ", ") & Celda

           Next

           Resultado = Resultado & SubResultado & ": " & Celda2.Offset(0, 1) & ".  "

           txtCelda2 = txtCelda2 & Celda2.Offset(0, 1) & ","

        End If

    Next

    If Resultado <> "" Then ConcatenaRe = Resultado

    Exit Function

Salir:

    ConcatenaRe = "#ERROR!"

End Function

Function ConcatenaRe(rango As Range) As String

On Error GoTo Salir:

    Application.Volatile

    ...