let
Source = Excel.CurrentWorkbook(),
#"Inserted Replaced Text" = Table.AddColumn(Source, "Replaced Text", each Text.Replace([Name], "Table", "Sheet"), type text),
#"Removed Columns" = Table.RemoveColumns(#"Inserted Replaced Text",{"Name"}),
#"Renamed Columns" = Table.RenameColumns(#"Removed Columns",{{"Replaced Text", "Name"}}),
#"Expanded Content" = Table.ExpandTableColumn(#"Renamed Columns", "Content", {"Column1", "Column2", "Q1", "Q2", "Q3", "Q4", "Total"}, {"Column1", "Column2", "Q1", "Q2", "Q3", "Q4", "Total"}),
#"Reordered Columns" = Table.ReorderColumns(#"Expanded Content",{"Name", "Column1", "Column2", "Q1", "Q2", "Q3", "Q4", "Total"}),
#"Unpivoted Other Columns" = Table.UnpivotOtherColumns(#"Reordered Columns", {"Name", "Column1", "Column2"}, "Attribute", "Value"),
#"Changed Type" = Table.TransformColumnTypes(#"Unpivoted Other Columns",{{"Value", type number}, {"Column2", type text}, {"Column1", type text}}),
#"Filtered Rows" = Table.SelectRows(#"Changed Type", each not Text.Contains([Attribute], "Total"))
in
#"Filtered Rows"
Once the table is produced you could hide row 1 (headers) by setting font and fill to white and deselecting filter.
Bookmarks