Makro für Arbeitsmappe

Public Sub Umbauen()
Dim arr1(), arrtmp(), arr2(), arr2tmp(), iCount
arr1 = Range(Cells(2, 1), Cells(Rows.Count, 2).End(xlUp))
arr1length = UBound(arr1()) + 1
arr2 = Range(Cells(2, 4), Cells(arr1length, 5))
iCount = 0
Do While iCount 

Problem: Dieses Makro läuft wunderbar im eigenen Tabellenblatt. Ich will dieses jedoch zentral in der Arbeitsmappe haben. Durch Ersetzen von "Range(Cells(2, 4), Cells(arr1length, 5)) = arr2" in
"Tabelle4.Range(Cells(2, 4), Cells(arr1length, 5)) = arr2" wollte ich das Array in ein neues Tabellenblatt übertragen. Dabei kommt jedoch der Laufzeitfehler 1004- Anwendungs-und objektdefinierter Fehler.
Leider werde ich aus der Excel-Hilfe nicht wirklich schlau...
Hoffe, ihr könnt mir helfen!
Vielen lieben Dank im Voraus!!
Gruß Jana