let
    Источник = Table.FromColumns({Lines.FromBinary(Web.Contents("https://www.onclinic.ru/ajax/service/services.php?PAGEN_1=18&ajax=Y"))}),
    #"Строки с примененным фильтром" = Table.SelectRows(Источник, each Text.Contains([Column1], " <a href="""))
in
    #"Строки с примененным фильтром"

let
    pages = {1..15},
    table = Table.FromList(pages, Splitter.SplitByNothing(), null, null, ExtraValues.Error),
    new_column = Table.AddColumn(table, "fn", each fn([Column1], null)),
    expand_column = Table.ExpandListColumn(new_column, "fn"),
    fn = (value, s) =>
            let
                url = "https://www.onclinic.ru/ajax/service/services.php?PAGEN_1=" & Number.ToText(value),
                page = Lines.FromBinary(Web.Contents(url))
            in
                page,
    filtered_rows = Table.SelectRows(expand_column, each Text.Contains([fn], "<a href")),
    split = Table.SplitColumn(filtered_rows, "fn", Splitter.SplitTextByDelimiter(""">", QuoteStyle.None), {"fn.1", "fn.2"}),
    replace_value = Table.ReplaceValue(split,"</a>","",Replacer.ReplaceText,{"fn.2"}),
    replace_value1 = Table.ReplaceValue(replace_value,"<a href=""","https://www.onclinic.ru",Replacer.ReplaceText,{"fn.1"}),
    res = Table.TransformColumns(replace_value1,{{"fn.1", Text.Trim, type text}})
in
    res