Zeile am Ende einfügen

ich möchte unter dem letzen Eintrag einer Spalte eine Zeile einfügen und in diese Werte aus C15 bis Y15 kopieren.

Folgender Code:
Sub ArtEinfügen()
Dim anf As Range
Dim fert As Range
Dim einf As Range

Set anf = Sheets("Liste").Range("C15")
Set fert = Sheets("Liste").Range("Y15")

Range(anf, fert).Copy

Set einf = Range("C20").End(xlDown).Offset(1, 0)
einf.Insert Shift:=xlDown

einf.PasteSpecial Paste:=xlFormulas, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False

End Sub

Mit diesem Code werden aber immer 2 Zeilen eingefügt und der Inhalt hineinkopiert.

Was mach ich falsch?

Vielen Dank im voraus

Michael