Transpose multirows from two column into single row with one header

Hello All,

Hope you have a great time.

I am trying to transpose data in multi rows from two column into single rows with one header.
Attached is the macro mockup, need small adjustment, because it's only transpose first column.

Sub TransposeAreas()
    Dim aArea As Range
    Dim nr As Long
    
    Application.ScreenUpdating = False
    nr = 1
    For Each aArea In Range("A1", Range("A" & Rows.Count).End(xlUp)) _
                .SpecialCells(xlCellTypeConstants).Areas
        aArea.Copy
        Cells(nr, 3).PasteSpecial Transpose:=True
        nr = nr + 1
    Next aArea
    Application.CutCopyMode = False
    Application.ScreenUpdating = True
End Sub

Thank you.