Help with sorting data!

SO_ALO1003 

Sub sorting_data()

Dim i As Long, j As Long, k As Long

Range("BL:BL").Clear
k = 5
For i = 2 To Range("A" & Rows.Count).End(xlUp).Row
Cells(k, 64).Value = Cells(i, 1).Value & " " & Cells(i, 2).Value
k = k + 1
For j = 3 To 59
If Cells(i, j).Value <> "" Then
Cells(k, 64).Value = Cells(i, j).Value
k = k + 1
Else
End If

Next j

Next i

End Sub

In the attached sample file you can click the button in cell BN2 to run the macro that returns the intended output in column BL.

SO_ALO1003 

Here's my solution:

=LET(
    joined, Demo[Last] & " " & Demo[First],
    matrix, HSTACK(joined, Demo[[Column1]:[Column5]]),
    TOCOL(matrix, 1)
)