How can I transpose?

phildot 

Another variant is with Power Query

let
    Source = Excel.CurrentWorkbook(),
    FilterRange = Table.SelectRows(Source, each ([Name] = "Range")),
    Range = FilterRange{[Name="Range"]}[Content],
    PromotHeaders = Table.PromoteHeaders(Range, [PromoteAllScalars=true]),
    UnpivotOtherThanNames = Table.UnpivotOtherColumns(
        PromotHeaders,
        {"Column1"},
        "Attribute", "Value"
    ),
    PivotBack = Table.Pivot(
        UnpivotOtherThanNames,
        List.Distinct(UnpivotOtherThanNames[Attribute]),
        "Attribute", "Column1"
    )
in
    PivotBack