Hallo Liebe Community

Ich habe mich mit dem Laufzeitfehler 1004 schon intensiv beschäftigt doch bin leider nicht fündig geworden.

Projekt:
Ich arbeite an einem Makro das Woche für Woche Statistiken und die nötigen Zahlen automatisieren soll.
In einer Tabelle (A) wird also jede Woche eine neue hinzugefügt und die Zahlen eine Spalte verschoben, so dass die neuen am Anfang sind.
Eine Andere Tabelle (B) vergleicht die Aktuellen zahlen immer mit dem letzten Quartal, aber dadurch das ich die Zahlen in der Tabelle A mit Copy Paste verschiebe verfälscht sich immer die Referenz.
Ich hab eine Methode geschrieben die geht nun in der Tabelle A durch die Spalten mit den Wochenangaben und speichert sich die referenz zu den Spalten des Quartals.

Mein Problem ist das wenn ich in der Tabelle B in einem Feld die neue Formel einfügen möchte kommt der Laufzeitfehler 1004.

Code:

Sub checkQuartal()


Dim endQuartal, endQ, startQuartal, startQ
Dim checker As Boolean
checker = False

'Holt die Referenz welche Wochen zum letzten Quartal gehören
Worksheets("Tabelle C").Select
endQuartal = Range("A1")
startQuartal = Range("B1")

'Wochenangabe fängt in der Spalte 5 an
Dim i As Integer
i = 5

Worksheets("Tabelle A").Select

Do While Not checker
    If Cells(5, i).Value = endQuartal Then
        endQ = i
    ElseIf Cells(5, i).Value = startQuartal Then
        startQ = i
        checker = True
    End If
    i = i + 1
Loop

'die 1 ist nicht sauber doch das spielt i.M keine Rolle
updateQuartal endQ, startQ, "Tabelle B", "Tabelle A", 1

End Sub

Sub updateQuartal(endQ, startQ, sheetName, referenceSheet, checker)

Worksheets(sheetName).Select


If checker = 1 Then
'Bei diesem Befehl kommt beim Debuggen immer der Laufzeitfehler 1004
Range("H5").Formula = "=AVERAGE(" & referenceSheet & "!" & Range(Cells(6, endQ), Cells(6, startQ)).Address(0, 0) & ")"

End If

End Sub

Ich hoffe Ihr könnt mir helfen und  wir finden das Problem.

Freundliche Grüsse
Daniel