Etwas Verwegen!!!

ich möcht mehrere Zellen mit der Formel = Teilsummen versehen. Um Aber nicht alle Zellen einzeln anzusteuern habt ich eine kleine Schleife geschrieben, die diese Ausgabe übernehmen soll.
Aber so wie es meistens ist, funtioniert es nur in der Theorie. Vielleicht kann ja mal einer der Cracks draufschauen und mir einen Tip geben oder halt gleich davon abraten???

Sub Teilsummen()
Dim x
Dim j

x = Array(7, 9, 17, 19, 21, 23, 25, 10, 26)
'(G, I, Q, S, U, W, Y, j, Z) ensprechende Spalten Buchstaben
For j = 0 To 8 Step 1
Cells(6, x(j)).Formula = "=SUBTOTAL(9," & Cells(1, x(j)).Address & Cells(5, x(j)).Address & ")"
Next j
'z.B. "G6"=Teilergebnis(9,G1,G5)
End Sub

Danke Der Christian