MMult ergibt immer einen Fehler

habe mir zwei Ranges definiert (Range1, Range2). Diese will ich nun miteinander multiplizieren. Ich habe auch schon den dafür erforderlichen Platz reserviert. Leider scheine ich den Befehl nicht zu kennen, den ich dazu benötige. GerdZ hatte mir vorher bei einem ähnlichen Problem mit der Transponierten geholfen.
Ich habe unten meinen Quellcode angehängt.

Danke für eure Zeit

Andy

Sub mmult()

Dim range1 As Range

Set range1 = ActiveSheet.Range(Cells(1, 1), Cells(6, 1))

Range(Cells(1, 5), Cells(1, 10)).Select
Selection.FormulaArray = "=transpose(" & range1.Address & ")"

Set range2 = ActiveSheet.Range(Cells(1, 5), Cells(1, 10))
Range("e3:j8").Select
Selection.FormulaArray = "=mmult(" & range1.Address, range2.address & ")"

End Sub