String in Matrixformel

Sub Aufmass()
Dim Raum As String
Raum = "A"
Selection.FormulaArray = _
"=SUM((R3C1:R100C1=R2C7)*(R3C2:R100C2=" & Raum & ")*R3C4:R100C4)"
Range("G5").Select
End Sub

Sub packen, da sonst die Formatierung nicht erhalten bleibt

Sub BEISPIEL ()
Aufmaßberechnung
Position    Raum    Einheit Menge       Position:   1
1           A       m2      10          Raum:   A
1           A       Stck    11          Formel: #NAME?
2           C       m2      12
1           B       m2      13
2           A       m2      14
1           C       m2      15
End Sub