Promote headers from multiple random rows in a column

Trying to get the COVID data for county in UK at which tier level but the source data (gov website) presents rubbish results in one column due to no APIs or connections for the data.

I need to promote the covid tier levels as headers and then all rows below each heading under that heading as values. Hard to explain so hopefully providing this source code will show you what i have done so far and make more sense.

let
    Source = Web.Page(Web.Contents("https://www.gov.uk/guidance/full-list-of-local-covid-alert-levels-by-area")),
    Data0 = Source{0}[Data],
    Children = Data0{0}[Children],
    Children1 = Children{1}[Children],
    #"Expanded Children" = Table.ExpandTableColumn(Children1, "Children", {"Kind", "Name", "Children", "Text"}, {"Children.Kind", "Children.Name", "Children.Children", "Children.Text"}),
    #"Expanded Children.Children" = Table.ExpandTableColumn(#"Expanded Children", "Children.Children", {"Kind", "Name", "Children", "Text"}, {"Children.Children.Kind", "Children.Children.Name", "Children.Children.Children", "Children.Children.Text"}),
    #"Expanded Children.Children.Children" = Table.ExpandTableColumn(#"Expanded Children.Children", "Children.Children.Children", {"Kind", "Name", "Children", "Text"}, {"Children.Children.Children.Kind", "Children.Children.Children.Name", "Children.Children.Children.Children", "Children.Children.Children.Text"}),
    #"Expanded Children.Children.Children.Children" = Table.ExpandTableColumn(#"Expanded Children.Children.Children", "Children.Children.Children.Children", {"Kind", "Name", "Children", "Text"}, {"Children.Children.Children.Children.Kind", "Children.Children.Children.Children.Name", "Children.Children.Children.Children.Children", "Children.Children.Children.Children.Text"}),
    #"Expanded Children.Children.Children.Children.Children" = Table.ExpandTableColumn(#"Expanded Children.Children.Children.Children", "Children.Children.Children.Children.Children", {"Kind", "Name", "Children", "Text"}, {"Children.Children.Children.Children.Children.Kind", "Children.Children.Children.Children.Children.Name", "Children.Children.Children.Children.Children.Children", "Children.Children.Children.Children.Children.Text"}),
    #"Expanded Children.Children.Children.Children.Children.Children" = Table.ExpandTableColumn(#"Expanded Children.Children.Children.Children.Children", "Children.Children.Children.Children.Children.Children", {"Kind", "Name", "Children", "Text"}, {"Children.Children.Children.Children.Children.Children.Kind", "Children.Children.Children.Children.Children.Children.Name", "Children.Children.Children.Children.Children.Children.Children", "Children.Children.Children.Children.Children.Children.Text"}),
    #"Expanded Children.Children.Children.Children.Children.Children.Children" = Table.ExpandTableColumn(#"Expanded Children.Children.Children.Children.Children.Children", "Children.Children.Children.Children.Children.Children.Children", {"Kind", "Name", "Children", "Text"}, {"Children.Children.Children.Children.Children.Children.Children.Kind", "Children.Children.Children.Children.Children.Children.Children.Name", "Children.Children.Children.Children.Children.Children.Children.Children", "Children.Children.Children.Children.Children.Children.Children.Text"}),
    #"Expanded Children.Children.Children.Children.Children.Children.Children.Children" = Table.ExpandTableColumn(#"Expanded Children.Children.Children.Children.Children.Children.Children", "Children.Children.Children.Children.Children.Children.Children.Children", {"Kind", "Name", "Children", "Text"}, {"Children.Children.Children.Children.Children.Children.Children.Children.Kind", "Children.Children.Children.Children.Children.Children.Children.Children.Name", "Children.Children.Children.Children.Children.Children.Children.Children.Children", "Children.Children.Children.Children.Children.Children.Children.Children.Text"}),
    #"Expanded Children.Children.Children.Children.Children.Children.Children.Children.Children" = Table.ExpandTableColumn(#"Expanded Children.Children.Children.Children.Children.Children.Children.Children", "Children.Children.Children.Children.Children.Children.Children.Children.Children", {"Kind", "Name", "Children", "Text"}, {"Children.Children.Children.Children.Children.Children.Children.Children.Childr.1", "Children.Children.Children.Children.Children.Children.Children.Children.Childr.2", "Children.Children.Children.Children.Children.Children.Children.Children.Childr.3", "Children.Children.Children.Children.Children.Children.Children.Children.Childr.4"}),
    #"Removed Columns" = Table.RemoveColumns(#"Expanded Children.Children.Children.Children.Children.Children.Children.Children.Children",{"Kind", "Name", "Children.Kind", "Children.Name", "Children.Children.Kind", "Children.Children.Name", "Children.Children.Children.Kind", "Children.Children.Children.Name", "Children.Children.Children.Children.Kind", "Children.Children.Children.Children.Name", "Children.Children.Children.Children.Children.Kind", "Children.Children.Children.Children.Children.Name", "Children.Children.Children.Children.Children.Children.Kind", "Children.Children.Children.Children.Children.Children.Name", "Children.Children.Children.Children.Children.Children.Children.Kind", "Children.Children.Children.Children.Children.Children.Children.Name", "Children.Children.Children.Children.Children.Children.Children.Children.Kind", "Children.Children.Children.Children.Children.Children.Children.Children.Name", "Children.Children.Children.Children.Children.Children.Children.Children.Childr.1", "Children.Children.Children.Children.Children.Children.Children.Children.Childr.2", "Children.Children.Children.Children.Children.Children.Children.Children.Childr.3", "Children.Children.Children.Children.Children.Children.Text", "Children.Children.Children.Children.Children.Text", "Children.Children.Children.Children.Text", "Children.Children.Children.Text", "Children.Children.Text", "Children.Text", "Text", "Children.Children.Children.Children.Children.Children.Children.Text", "Children.Children.Children.Children.Children.Children.Children.Children.Childr.4"}),
    #"Filtered Rows" = Table.SelectRows(#"Removed Columns", each ([Children.Children.Children.Children.Children.Children.Children.Children.Text] = "Cheshire" or [Children.Children.Children.Children.Children.Children.Children.Children.Text] = "Derbyshire" or [Children.Children.Children.Children.Children.Children.Children.Children.Text] = "Durham" or [Children.Children.Children.Children.Children.Children.Children.Children.Text] = "Greater Manchester" or [Children.Children.Children.Children.Children.Children.Children.Children.Text] = "Lancashire" or [Children.Children.Children.Children.Children.Children.Children.Children.Text] = "Leicestershire" or [Children.Children.Children.Children.Children.Children.Children.Children.Text] = "Liverpool City Region" or [Children.Children.Children.Children.Children.Children.Children.Children.Text] = "Local COVID alert level: high" or [Children.Children.Children.Children.Children.Children.Children.Children.Text] = "Local COVID alert level: very high" or [Children.Children.Children.Children.Children.Children.Children.Children.Text] = "Northumberland" or [Children.Children.Children.Children.Children.Children.Children.Children.Text] = "Nottinghamshire" or [Children.Children.Children.Children.Children.Children.Children.Children.Text] = "South Yorkshire" or [Children.Children.Children.Children.Children.Children.Children.Children.Text] = "Tees Valley" or [Children.Children.Children.Children.Children.Children.Children.Children.Text] = "Tyne and Wear" or [Children.Children.Children.Children.Children.Children.Children.Children.Text] = "West Midlands" or [Children.Children.Children.Children.Children.Children.Children.Children.Text] = "West Yorkshire"))
in
    #"Filtered Rows"