Custom Lists

Hello- I need to figure out a way to make a 2-column list, pulling values from several other lists.
I want the first column to list the items, and the second column to indicate from which original list the item came. If items appear in more than one list, they should appear multiple times.

I want to take this:
[List 1][List 2][List 3]
A A F
B D B
C E E

And get this:
[Item][List that Item is In]
A List 1
A List 2
B List 1
B List 3
C List 2
D List 2
E List 2
E List 3
F List 3

With PowerQuery (Get&Transform)

is that what you want?

Yes! I just don't know the steps to get there...

steps in PowerQuery or ... ?

It's a good point to read this: Getting Started with Get & Transform in Excel 2016

Correct, I've never used PowerQuery

So read article from the link above

in the meantime:
click on the range
go to DATA tab - Get&Transform
From Table
in new window select all columns
from the menu select Unpivot Columns
sort column(s) as you wish
Close&Load result query into the sheet

try:

Sub aListBreakup()
Dim shtSrc As Worksheet, shtTarg As Worksheet
Dim r As Long, c As Long
Dim vHdr

Set shtSrc = ActiveSheet
Sheets.Add
Set shtTarg = ActiveSheet
shtSrc.Activate

    Range("A1").Select
    For c = 1 To 3
        vHdr = ActiveCell.Value    'get header name
        NextRow
        Range(Selection, Selection.End(xlDown)).Select
        If c = 1 Then r = Selection.Rows.Count
        
        GoSub CopyPasteCol
        
           'move to next col
        'Selection.Offset(0, 1).Select
        Range("A1").Select
        ActiveCell.Offset(0, c).Select  'next column
    Next
    shtTarg.Activate

Set shtSrc = Nothing
Set shtTarg = Nothing
Exit Sub

CopyPasteCol:
    Selection.Copy
    shtTarg.Select
    ActiveSheet.Paste
    Selection.Offset(0, 1).Select
    Selection.Value = vHdr
    
    Application.CutCopyMode = False
       'goto next free cell
    Range("A2").Select
    Selection.End(xlDown).Select
    NextRow
    shtSrc.Activate
Return
End Sub

Private Sub NextRow()
        ActiveCell.Offset(1, 0).Select  'next column
End Sub