Hi All

Ich habe mir folgenden Code gebastelt und es funktioniert eigentlich ganz gut.
Beispiel:
In Spalte Q have ich eine Reihe von Name oder was auch immer.
Wenn ich eine Zelle in der Spalte Q auswähle, dann wird diese kopiert und am Ende der gefüllten Spalte Q eingefügt.

Meine Frage ist, ob es möglich wäre diese kopierte Zelle nicht am Ende der befüllten Zellen in Spalte Q einzufügen, sondern alle befüllten Zellen unterhalb der ausgewählten eine Zelle nach unten zu verschieben und diese in die frei gewordene Zelle einzufügen?

Es soll sich nur Bereich in Spalte Q nach unten verschieben. Nicht die Daten in den benachbarten Spalten

Wie es im Moment funktioniert:
1 wird kopiert und am Ende eingefügt

1
2
3
4
5
1

Mein Wunsch wäre:

1 wird kopiert und alles unterhalb der 1 wird um eine Zelle nach unten verschoben und die 1 erst dann eingefügt.

1
1
2
3
4
5


Sub PasteValuesToNextEmpty()
Dim B As Range
Dim m As Long
Set B = Application.InputBox("Select the range to copy", Type:=8)
Selection.Copy
m = WorksheetFunction.Max(1, Cells(Rows.Count, "Q").End(xlUp).Row)

Range("Q" & m + 1).PasteSpecial xlPasteValues
End Sub

https://www.herber.de/bbs/user/159957.xls

Vielen Dank für Eure Hilfe

Gruss

Raimund