Transpose columns to rows with a twist

[MPFraser7]

User	App1	App2	App3
A	Safari	Chrome
B	Safari		Edge
C		Chrome

<tbody>
</tbody>

I have a similar table in excel, and I want to quickly convert it to this:

User App
A Safari
A Chrome
B Safari
B Edge
C Chrome

Any ideas?

 

[MPFraser7]

Sorry, I couldn't add a second table but there are 2 columns: User and App, and 6 rows. Since user A has access to two apps, there are two rows for him. Let me know if this isn't clear.

 

[Special-K99]

VBA or formula solution?

 

[Joyner]

How about using Power Query, can be done quick with the Unpivot Columns command

 

[Special-K99]

VBA solution, input on Sheet1, output on Sheet2

Sub k1()
lastrow = Worksheets("Sheet1").Cells(Rows.Count, "A").End(xlUp).Row
k = 0
For i = 2 To lastrow
For j = 2 To 4
If Worksheets("Sheet1").Cells(i, j) <> "" Then
    k = k + 1
    Worksheets("Sheet2").Cells(k, 1) = Worksheets("Sheet1").Cells(i, 1)
    Worksheets("Sheet2").Cells(k, 2) = Worksheets("Sheet1").Cells(i, j)
End If
Next j
Next i
End Sub