let
    Source = Table.FromColumns({Lines.FromBinary(Web.Contents("http://www.deagel.com/Propulsion-Systems.htm"))}),
    #"Filtered Rows" = Table.SelectRows(Source, each Text.StartsWith([Column1], "<b>")),
    #"Split Column by Delimiter" = Table.ExpandListColumn(Table.TransformColumns(#"Filtered Rows", {{"Column1", Splitter.SplitTextByDelimiter("</a>", QuoteStyle.Csv), let itemType = (type nullable text) meta [Serialized.Text = true] in type {itemType}}}), "Column1"),
    #"Duplicated Column" = Table.DuplicateColumn(#"Split Column by Delimiter", "Column1", "Копия Column1"),
    #"Split Column by Delimiter1" = Table.SplitColumn(#"Duplicated Column", "Column1", Splitter.SplitTextByDelimiter(">", QuoteStyle.Csv), {"Column1.1", "Column1.2"}),
    #"Changed Type" = Table.TransformColumnTypes(#"Split Column by Delimiter1",{{"Column1.1", type text}, {"Column1.2", type text}}),
    #"Extracted Text After Delimiter" = Table.TransformColumns(#"Changed Type", {{"Column1.1", each Text.AfterDelimiter(_, "<a href="), type text}}),
    #"Added Custom" = Table.AddColumn(#"Extracted Text After Delimiter", "Пользовательская", each let
    Source = Table.FromColumns({Lines.FromBinary(Web.Contents("http://www.deagel.com/"&[Column1.1]))}),
    #"Added Conditional Column" = Table.AddColumn(Source, "Пользовательская", each if Text.StartsWith([Column1], "<i>") then [Column1] else null),
    #"Filtered Rows" = Table.SelectRows(#"Added Conditional Column", each ([Пользовательская] <> null)),
    #"Duplicated Column" = Table.DuplicateColumn(#"Filtered Rows", "Пользовательская", "Копия Пользовательская"),
    #"Extracted Text Between Delimiters" = Table.TransformColumns(#"Duplicated Column", {{"Пользовательская", each Text.BetweenDelimiters(_, "<i>", "</i>"), type text}}),
    #"Extracted Text Between Delimiters1" = Table.TransformColumns(#"Extracted Text Between Delimiters", {{"Копия Пользовательская", each Text.BetweenDelimiters(_, "</i>", "<br />"), type text}}),
    #"Extracted Text Between Delimiters2" = Table.TransformColumns(#"Extracted Text Between Delimiters1", {{"Копия Пользовательская", each Text.BetweenDelimiters(_, """>", "</a>", {0, RelativePosition.FromEnd}, 0), type text}}),
    #"Kept Last Rows" = Table.LastN(#"Extracted Text Between Delimiters2", 7)
in
    #"Kept Last Rows"),
    #"Expanded {0}" = Table.ExpandTableColumn(#"Added Custom", "Пользовательская", {"Копия Пользовательская"}, {"Копия Пользовательская"})
in
    #"Expanded {0}"