Excel Tabellen verschachteln

In Spalte „A“ und „B“ stehen jeweils Werte in unbestimmter Menge. Meistens so zwischen 100 und 200 Zeilen.

A	B
=PFM1+ERG1-W200	=PFM1+ERG1-B2001
=PFM1+ERG1-W2002	=PFM1+ERG1-B2002
=PFM1+ERG1-W2003	=PFM1+ERG1-B2003
=PFM1+ERG1-W2004	=PFM1+ERG1-B2004
=PFM1+ERG1-W2005	=PFM1+ERG1-B2005
=PFM1+ERG1-W2006	=PFM1+ERG1-B2006
=PFM1+ERG1-W2021	=PFM1+ERG1-B2021
=PFM1+ERG1-W2022	=PFM1+ERG1-B20221

Jetzt sollen die Werte aus Spalte B nach Spalte A in dieselbe Zeile verschoben werden, und zwar so dass sie unterhalb in der selben Zeile stehen. Soll fertig dann so aussehen:

A	B
=PFM1+ERG1-W200 =PFM1+ERG1-B2001
=PFM1+ERG1-W2002 =PFM1+ERG1-B2002
=PFM1+ERG1-W2003 =PFM1+ERG1-B2003
=PFM1+ERG1-W2004 =PFM1+ERG1-B2004
=PFM1+ERG1-W2005 =PFM1+ERG1-B2005
=PFM1+ERG1-W2006 =PFM1+ERG1-B2006
=PFM1+ERG1-W2021 =PFM1+ERG1-B2021
=PFM1+ERG1-W2022 =PFM1+ERG1-B20221

Hab mir mal im Internet etwas zusammengesucht (Danke an den unbekannten Autor):

Sub Verschachteln()
'
' Leerzeilen einfügen
'

'
For i = 3 To 1000 Step 2
Rows(i).Select
Selection.Insert
Next i

'
' verschachteln_verschieben2 Makro
'

'
Range("B2").Select
Selection.Cut
ActiveCell.Offset(1, -1).Range("A1").Select
ActiveSheet.Paste

Dim lAnzahl As String
'Dim i As Long
Anf:
lAnzahl = InputBox("Geben Sie hier die Anzahl der zu verarbeitenden Datensätze ein! (Im Zweifel eine grössere Zahl eingeben)", , 500)

'Prüfen ob eine Zahl eingegeben wurde
For i = 1 To CLng(lAnzahl)
ActiveCell.Offset(1, 1).Range("A1").Select
Selection.Cut
ActiveCell.Offset(1, -1).Range("A1").Select
ActiveSheet.Paste
Next i
End Sub


Ist ganz nett, aber nicht ganz die Lösung. Verschiebt die Werte aus B in eine eigene Zeile in Spalte A. Kann dies jemand umbasteln oder gibt’s da ne bessere Lösung?

Besten Gruß,

MaceWindu

=VERKETTEN(A1;ZEICHEN(10);B1)