let
Source = Text.Combine(Lines.FromBinary(Web.Contents("https://doct.ru/price/"))),
#"Split Text" = Table.FromColumns( {List.Transform( List.RemoveLastN( Text.Split(Source, "/price/"" class=""drop-list__link"">") ,2), each Text.AfterDelimiter(_, "directions/", {0, RelativePosition.FromEnd}) )}),
#"Added Custom" = Table.AddColumn(#"Split Text", "a", each Text.Combine(Lines.FromBinary(Web.Contents("https://doct.ru/directions/" & [Column1] & "/price/")))),
#"Removed Errors" = Table.RemoveRowsWithErrors(#"Added Custom", {"a"}),
#"Added Custom1" = Table.AddColumn(#"Removed Errors", "b", each List.Skip(Text.Split([a], "<h3>"))),
#"Expanded {0}1" = Table.ExpandListColumn(#"Added Custom1", "b"),
#"Added Custom2" = Table.AddColumn(#"Expanded {0}1", "c", each List.Skip( Text.Split([b], "services-price-list__name"" itemprop=""name""> "))),
#"Extracted Text Before Delimiter" = Table.TransformColumns(#"Added Custom2", {{"b", each Text.BeforeDelimiter(_, "<"), type text}}),
#"Removed Columns" = Table.RemoveColumns(#"Extracted Text Before Delimiter",{"a"}),
#"Expanded {0}" = Table.ExpandListColumn(#"Removed Columns", "c"),
#"Inserted Text Before Delimiter" = Table.AddColumn(#"Expanded {0}", "Цена", each Text.AfterDelimiter( Text.BeforeDelimiter([c], """ itemprop=""price"">") , """", {0, RelativePosition.FromEnd}), type text),
#"Extracted Text Before Delimiter1" = Table.TransformColumns(#"Inserted Text Before Delimiter", {{"c", each Text.Trim(Text.BeforeDelimiter(_, "</span>")), type text}})
in
#"Extracted Text Before Delimiter1" |