Column headings to rows - changing my list

Hi Sheena,

Perhaps the easiest way is to use Power Query (Get&Transform in Excel 2016), that looks like

and the script generated from user interface is

let
    Source = Excel.CurrentWorkbook(){[Name="Table1"]}[Content],
    AsNumbers = Table.TransformColumnTypes(Source,{{"Numbers", Int64.Type}}),
    OnlyNumbers = Table.SelectRows(AsNumbers, each ([Numbers] <> null)),
    #"4Digits" = Table.AddColumn(OnlyNumbers, "4Digits", each if [Numbers] < 10000 then [Numbers] else null),
    NullToNumber = Table.FillDown(#"4Digits",{"4Digits"}),
    #"5Digits" = Table.AddColumn(NullToNumber, "5digits", each if [Numbers] >= 10000 then [Numbers] else null),
    NoNulls = Table.SelectRows(#"5Digits", each ([5digits] <> null)),
    RemoveSourceColumn = Table.RemoveColumns(NoNulls,{"Numbers"})
in
    RemoveSourceColumn

With formulas - perhaps also possible, but better to know how exactly your data is structured.