Hi there,

Welcome to the forum.

I've written the following code that will (hopefully) do the trick:

Application.ScreenUpdating = False

Range("A1").Copy Destination:=ActiveSheet.Range("A2:A12")

Dim strCurrentCell As String
Range("C1").Select

    Do Until strCurrentCell = "O1"
    strCurrentCell = ActiveCell.Address(False, False)
    ActiveCell.Cut
    Range("B65536").End(xlUp).Select
    ActiveCell.Offset(1, 0).Select
    ActiveSheet.Paste
    Range(strCurrentCell).Select
    ActiveCell.Offset(0, 1).Select
    Loop
    
Range("A1").Select

Application.ScreenUpdating = True
Let me know how it goes or if you have any issues.

Kind regards,

Robert