skipping the "let" and "source" entries:
Page1 = Source{[Id="Page002"]}[Data],
#"Replaced Value" = Table.ReplaceValue(Page1,"[image]",null,Replacer.ReplaceValue,Table.ColumnNames(Page1)),
#"Added Conditional Column" = Table.AddColumn(#"Replaced Value", "Custom", each List.IsEmpty(List.RemoveNulls(Record.FieldValues(_)))),
#"Remove null rows" = Table.SelectRows(#"Added Conditional Column", each ([Custom] = false)),
#"Removed Columns" = Table.RemoveColumns(#"Remove null rows",{"Custom"}),
#"Idenitfy rows with unnecessary text" = Table.AddColumn(#"Removed Columns", "Custom", each Text.Contains(List.RemoveNulls(Record.FieldValues(_)){0},"page") or Text.Contains(List.RemoveNulls(Record.FieldValues(_)){0},"MESSENGER") or Text.Contains(List.RemoveNulls(Record.FieldValues(_)){0},"CLUTCH")),
#"Remove rows" = Table.SelectRows(#"Idenitfy rows with unnecessary text", each ([Custom] = false)),
#"Removed Columns1" = Table.RemoveColumns(#"Remove rows",{"Custom"}),
#"Transposed Table" = Table.Transpose(#"Removed Columns1"),
//#"Add col to identify all null rows2" = Table.AddColumn(#"Transposed Table", "Custom", each List.IsEmpty(List.RemoveNulls(Record.FieldValues(_)))),
//#"Removed null rows 2" = Table.SelectRows(#"Add col to identify all null rows2", each ([Custom] = false)),
//#"Removed Columns2" = Table.RemoveColumns(#"Removed null rows 2",{"Custom"}),
#"Added Index" = Table.AddIndexColumn(#"Transposed Table", "Index", 0, 1, Int64.Type),
#"Add col to identify rows with most items" = Table.AddColumn(#"Added Index", "Custom", each List.Count(List.RemoveNulls(Record.FieldValues(_)))),
#"Sorted Rows" = Table.Sort(#"Add col to identify rows with most items",{{"Custom", Order.Descending}}),
#"Kept First Rows" = Table.FirstN(#"Sorted Rows",2),
#"Sorted Rows1" = Table.Sort(#"Kept First Rows",{{"Index", Order.Descending}}),
#"Transposed Table1" = Table.Transpose(#"Transposed Table"),
#"Left Side" = Table.SelectColumns(#"Transposed Table1",List.FirstN(Table.ColumnNames(#"Transposed Table1"), #"Sorted Rows1"[Index]{0}-1)),
#"Right Side" = Table.SelectColumns(#"Transposed Table1",List.RemoveFirstN(Table.ColumnNames(#"Transposed Table1"), #"Sorted Rows1"[Index]{0}-1)),
#"Demoted Headers" = Table.DemoteHeaders(#"Right Side"),
#"Removed Top Rows2" = Table.Skip(#"Demoted Headers",1),
#"Appending left side with right side" = Table.Combine({#"Left Side", #"Removed Top Rows2"}),
#"Add col to identify all null rows3" = Table.AddColumn(#"Appending left side with right side", "Custom", each List.IsEmpty(List.RemoveNulls(Record.FieldValues(_)))),
#"Removed null rows 3" = Table.SelectRows(#"Add col to identify all null rows3", each ([Custom] = false)),
#"Removed Columns3" = Table.RemoveColumns(#"Removed null rows 3",{"Custom"}),
#"Added Custom3" = Table.AddColumn(#"Removed Columns3", "List", each List.RemoveNulls(Record.FieldValues(_))),
#"Added Custom4" = Table.AddColumn(#"Added Custom3", "Size", each if Text.Contains([List]{0},"Size") then [List]{0} else null),
#"Added Custom5" = Table.AddColumn(#"Added Custom4", "Price", each if Text.Contains([List]{0},"Price") then [List]{0} else null),
#"Added Custom6" = Table.AddColumn(#"Added Custom5", "Quantity", each if Text.Contains(List.Last([List]),"Qty") then List.Last([List]) else null),
#"Added Custom7" = Table.AddColumn(#"Added Custom6", "Status", each if List.Contains({"DISCONTINUED","Other options"},[List]{0}) then [List]{0} else null),
#"Added Custom8" = Table.AddColumn(#"Added Custom7", "ID", each if Text.Contains([List]{0},"ADB") then [List]{0} else null),
#"Removed Columns4" = Table.RemoveColumns(#"Added Custom8",{"Status"}),
#"Removed Other Columns1" = Table.SelectColumns(#"Removed Columns4",{"Size", "Price", "Quantity", "ID"}),
#"Filled Up" = Table.FillUp(#"Removed Other Columns1",{"Size", "Price", "Quantity"}),
#"Filtered Rows3" = Table.SelectRows(#"Filled Up", each ([ID] <> null)),
#"Identify which ID's have status" = Table.SelectColumns(#"Added Custom8",{"Status", "ID"}),
#"Filled Down" = Table.FillDown(#"Identify which ID's have status",{"ID"}),
#"Filtered Rows4" = Table.SelectRows(#"Filled Down", each ([Status] = "DISCONTINUED")),
#"Lookup which ID's are disc" = #"Filtered Rows3",
#"Merged Queries" = Table.NestedJoin(#"Lookup which ID's are disc", {"ID"}, #"Filtered Rows4", {"ID"}, "Custom2", JoinKind.LeftOuter),
#"Expanded Custom2" = Table.ExpandTableColumn(#"Merged Queries", "Custom2", {"Status"}, {"Status"}),
#"Replaced Value2" = Table.ReplaceValue(#"Expanded Custom2","Size: ","",Replacer.ReplaceText,{"Size"}),
#"Replaced Value3" = Table.ReplaceValue(#"Replaced Value2","Price: ","",Replacer.ReplaceText,{"Price"}),
#"Replaced Value4" = Table.ReplaceValue(#"Replaced Value3","Qty: ","",Replacer.ReplaceText,{"Quantity"}),
#"Changed Type1" = Table.TransformColumnTypes(#"Replaced Value4",{{"Price", type number}, {"Quantity", type number}}),
#"Reordered Columns" = Table.ReorderColumns(#"Changed Type1",{"ID", "Size", "Price", "Quantity", "Status"})
in
#"Reordered Columns"