auto generate table based on selection w/ variables

Sub test()
    Dim a(), i As Long, x, n As Long, maxRow As Long
    With Sheets("sheet1").Cells(1).CurrentRegion
        ReDim a(1 To .Rows.Count)
        For i = 2 To .Rows.Count
            x = Filter(.Parent.Evaluate("if(" & .Rows(i).Address & "<>""""," & _
            .Rows(1).Address & ",char(2))"), Chr(2), 0)
            If UBound(x) > -1 Then
                x(0) = .Cells(i, 1).Value
                maxRow = Application.Max(maxRow, UBound(x) + 1)
                ReDim Preserve x(.Columns.Count - 1)
                n = n + 1: a(n) = x
            End If
        Next
        ReDim Preserve a(1 To n)
        Sheets("sheet2").Cells(1).Resize(maxRow, n).Value = _
        Application.Transpose(Application.Index(a, 0, 0))
    End With
End Sub

Option Explicit
Sub Macro1()    Dim lngLastRow As Long, lngMyRow As Long, lngLastCol As Long, lngMyCol As Long
    Dim strMyCol As String
    Dim wsSource As Worksheet
    Dim wsOutput As Worksheet
    
    Application.ScreenUpdating = False
        
    Set wsSource = Sheets("Sheet1") 'Sheet name with Location data going down the column. Change to suit if necessary.
    Set wsOutput = Sheets("Sheet2") 'Sheet name with Location going across columns A to F (inclusive). Change to suit if necessary.
    lngLastRow = wsOutput.Range("A:F").Find("*", SearchOrder:=xlByRows, SearchDirection:=xlPrevious).Row
    
    'Clear any existing data from the 'wsOutput' tab.
    If lngLastRow >= 2 Then
        wsOutput.Range("A2:F" & lngLastRow).ClearContents
    End If
        
    lngLastRow = wsSource.Cells(Rows.Count, "A").End(xlUp).Row
    For lngMyRow = 2 To lngLastRow
        For lngMyCol = 2 To wsSource.Cells(lngMyRow, Columns.Count).End(xlToLeft).Column
            If StrConv(wsSource.Cells(lngMyRow, lngMyCol), vbLowerCase) = "x" Then
                strMyCol = Left(Cells(1, lngMyRow - 1).Address(True, False), Application.WorksheetFunction.Search("$", Cells(1, lngMyCol).Address(True, False)) - 1) 'The Locations need to be in the same order down 'wsOutput' as they are across 'wsSource'.
                wsOutput.Range(strMyCol & Rows.Count).End(xlUp).Offset(1, 0).Value = wsSource.Cells(1, lngMyCol).Value 'Assumes the vendor names are in Row 1 of the 'wsSource' tab. Change to suit if neccessary.
            End If
        Next lngMyCol
    Next lngMyRow
    
    Application.ScreenUpdating = True
    
    MsgBox "The data has been inverted from """ & wsSource.Name & """ to """ & wsOutput.Name & """.", vbInformation
        
    Set wsSource = Nothing
    Set wsOutput = Nothing


End Sub