Office: Zelle kopieren und in letzte Zeile einfügen

Hallo liebes Forum,

ich muss eine bestimmte Zelle immer wieder neu einfügen (enthält Formeln)
und müsste diese dann in die zwanzig-letzte Zeile einfügen, da darunter dann Zeilen stehen die so bleiben müssen wie sie sind.

Mein Gedanke war wie folgt:


Sub Test()
Dim Zelle As Range
Set Zelle = Range("A14:I14")

With Range("C" & Cells(Rows.Count, 3).End(xlUp).Row - 20).Offset(1)
.EntireRow.Insert Shift:=x1Down
End With

Zelle.Copy Destination:=Range("C" & Cells(Rows.Count, 1).End(xlUp).Row - 20).Offset(1)
End Sub



Leider zeigt es mir bei diesem hier:
Zelle.Copy Destination:=Range("C" & Cells(Rows.Count, 1).End(xlUp).Row - 20).Offset(1)
immer einen Fehler an, könnte mir dabei jemand helfen?
- p.s. ich habe mich bei Rows.Count für Spalte C entschieden, weil erst in dieser Spalte Inhalte vorhanden sind.

:)

 

Bei mir funktioniert es, welcher Fehler wird dir angezeigt?

 

Laufzeitfehler '1004'

Die Methode'Range' für das Object '_Global' ist fehlgeschlagen

Aber wenn es bei dir klappt, wo ist dann der Fehler..? Eventuell in den Formeln?

 

Meine beste Vermutung ist, dass du weniger als 21 Zeilen hast, dadurch ergibt "minus 20" dann keinen gültigen Bereich mehr.