Macro to list a multi-column sheet into unique rows

This should do it. Add a Sheet2 first to receive the new data, then run the code.

Option Explicit
Dim s1rw As Long, s2rw As Long, col As Long

Sub Process()
    Sheets("Sheet1").Select
    With Sheets("Sheet2")
        .Cells.ClearContents
        .Cells(1, 1).Value = Cells(1, 1).Value
        .Cells(1, 2).Value = "Reference Link"
        s1rw = 2
        s2rw = 2
        Do Until Cells(s1rw, 1).Value = ""
            col = 2
            Do Until Cells(s1rw, col).Value = ""
                .Cells(s2rw, 1).Value = Cells(s1rw, 1).Value
                .Cells(s2rw, 2).Value = Cells(s1rw, col).Value
                s2rw = s2rw + 1
                col = col + 1
            Loop
            s1rw = s1rw + 1
        Loop
        .Columns("A:B").AutoFit
        .Select
    End With
End Sub