En primer lugar: "lo siento", el código lo escribí mal porque lo hice por fuera de Excel. La función correcta y funcionando es esta:
Option Explicit
Function sumarSiMismoValor(ByRef rangoDatos As Range, ByRef rangoMinimos As Range) As Double
Dim i As Integer
Dim suma As Double
If rangoDatos.Columns.Count <> 1 Or rangoMinimos.Columns.Count <> 1 Or _
rangoDatos.Rows.Count <> rangoMinimos.Rows.Count Then
suma = 999999999999#
Else
suma = 0
For i = 1 To rangoDatos.Rows.Count
If rangoDatos.Cells(i, 1) = rangoMinimos.Cells(i, 1) Then
suma = suma + rangoDatos.Cells(i, 1)
End If
Next i
End If
sumarSiMismoValor = suma
End Function
En segundo lugar indicarte que la fórmula que tienes que poner en la celda "M34" sería la que te puse ayer:
=sumarSiMismoValor(M8:M32;$AD$8:$AD$32)
Y copiar la fórmula en cualquier otra celda de la fila 34 (exceptuando la columna AD que es dónde tienes los valores mínimos).
En la columna "Y" que indicas en tu ejemplo, la fórmula de la celda "Y34" sería:
=sumarSiMismoValor(Y8:Y32;$AD$8:$AD$32)
Como verás sólo tiene que cambiar el nombre de la columna del primer rango mientras que el segundo rango, en la columna AD, permanece fijo por el uso del carácter "$".