olá aaamaral,

não dá pra entender o que você está querendo.
sugiro que vc anexe um arquivo aqui no fórum, uma planilha modelo, mostrando o que você tem e o resultado esperado.

Olá edilsonfl. Obrigado pela atenção.

Preciso fazer conforme na figura em anexo.

Boa tarde!!

Uma forma seria

Sub AleVBA_20634()
Dim oneColumnHead As Range
Dim columnHeads As Range
    
    With ThisWorkbook.Sheets("Plan1")
        Set columnHeads = Range(.Cells(1, 2), .Cells(1, .Columns.Count).End(xlToLeft))
    End With

    For Each oneColumnHead In columnHeads
        With oneColumnHead.EntireColumn
            With Range(.Cells(1, 1), .Cells(.Rows.Count, 1).End(xlUp))
                .Parent.Cells(.Parent.Rows.Count, 1).End(xlUp).Offset(1, 0).Resize(.Rows.Count, 1).Value = .Value
            End With
        End With
    Next oneColumnHead
End Sub

Att

Ajudou muito alexandrevba. Perfeito, muito obrigado.