Te dejo este procedimiento con el que puedes sumar celdas que reunen 2 condiciones, si gustas, puedes agregarles más a la programación.
***************************************************************************************
Function sumarF(rango1, criterio1, rango2, criterio2, rango3)
Dim r1, r2, r3 As Range
Set r1 = rango1
Set r2 = rango2
Set r3 = rango3
sumarF = 0
For contador = 1 To r1.Cells.Count
celda1 = r1.Cells(contador).Value
celda2 = r2.Cells(contador).Value
celda3 = r3.Cells(contador).Value
If celda1 = criterio1 And celda2 = criterio2 Then
sumarF = sumarF + Val(celda3)
End If
Next
End Function
***************************************************************************************
Saludos,
Fernando