Mittels VBA einen Bereich um Zeile nach unten kopieren

[hziemer]

Zuerst noch ein Gutes und Neues Jahr an alle hier im Forum.

Ich habe ein 'kleines' Problem beim Kopieren eines Bereichs.
Beim Aufruf wird basierend auf der aktuellen Zelle diese Zeile von A bis S markiert und der Bereich bis zur letzten Zeile markiert.

Set bereich = .Range(.Range("A" & ActiveCell.Row), .Range("S" & .Cells(Rows.Count, 1).End(xlUp).Row))
     bereich.Copy
     Selection.Offset(1, 0).Select

bereich.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove

Mein Problem ist das 'xlDown' ans Ende springt und den kopierten Bereich einfügt.
Ich möchte aber das der markierte Bereich nur eine Zeile tiefer eingefügt wird. 

Deshalb meine Frage hier an alle, wie muss ich das anstellen?
Ich bin für jede Hilfe dankbar.

Grüße aus dem verschneiten Schwaben

[Kuwer]

Hallo,

Code:

Sub qq()
  With Cells(ActiveCell.Row, 1).Resize(, 19)
    .Copy
    .Insert xlDown
  End With
End Sub

Gruß Uwe

[hziemer]

Hallo Uwe

So einfach geht das.
Es funktioniert einwandfrei.
Danke