Transpose columns to rows with a twist

[MPFraser7]

[TABLE="class: grid, width: 500"]
<tbody>[TR]
[TD]User

[/TD]
[TD]App1
[/TD]
[TD]App2
[/TD]
[TD]App3
[/TD]
[/TR]
[TR]
[TD]A
[/TD]
[TD]Safari
[/TD]
[TD]Chrome
[/TD]
[TD][/TD]
[/TR]
[TR]
[TD]B
[/TD]
[TD]Safari
[/TD]
[TD][/TD]
[TD]Edge
[/TD]
[/TR]
[TR]
[TD]C
[/TD]
[TD][/TD]
[TD]Chrome
[/TD]
[TD][/TD]
[/TR]
</tbody>[/TABLE]

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