Macro SUMIFS criterio dinámico

Hola, espero puedan ayudarme. Básicamente necesito una macro con la formula de excel "sumar.si.conjunto", pero que los criterios(5) no sean fijos, se modifiquen conforme avanza a la derecha y hacia abajo.

Ej1

Sub prueba2()
Sheets("Resumen").Range("G20:R55").FormulaArray = "=SUMIFS(Base!$P:$P,Base!$C:$C,Resumen!$A14,Base!$F:$F,Resumen!$B14,Base!$Q:$Q,Resumen!G$8,Base!$R:$R,Resumen!G$9,Base!$H:$H,Resumen!G$10)"
End Sub

Sirve, pero me deja fijos los criterios en resumen (A14, G8,G9 y G10) y necesito que sean dinámicos.

Ej 2.

Sub Prueba1()
MT = Array(, 20, 21, 22, 23, 24, 25, 26, 27, 28, 29, 30, 31, 32, 33, 34, 35, 36 _
, 37, 38, 39, 40, 41, 42, 43, 44, 45, 46, 47, 48, 49, 50, 51, 52, 53, 54, 55)
For y = 1 To 36
tm = Array(, "G", "H", "i", "J", "Q", "L", "M", "N", "O", "P", "Q", "r")
For x = 1 To 12
Sheets("resumen").Range(tm(x)& MT(y)) = Application.SumIfs(Sheets("Base").Range("p:p"), Sheets("Base").Range("c:c"), _
Sheets("resumen").Range("a" & MT(y)), Sheets("Base").Range("f:f"), Sheets("resumen").Range("b" & MT(y)), _
Sheets("Base").Range("q:q"), Sheets("resumen").Range("g8"), Sheets("Base").Range("r:r"), Sheets("resumen").Range(tm(x) & "9"), _
Sheets("Base").Range("h:h"), Sheets("resumen").Range(tm(x) & "10"))
Next
Next
End Sub

También sirve pero tengo que definir aprox. 800Mt's y TM's Para los diferentes Array.

Alguna idea de cómo hacerlo rápido y sencillo.