Hi Marcio,

Yes, that's bit complicated. In general tables on the web have three parts

- 1st which is Product Number and empty column

- 3rd which is Unix/box, Quantity and empty column

(above exists in each table in same format);

- 2nd which could have different column names, different number of columns and in some cases could be missed at all.

Moreover, some pages do not have tables, nothing to pick-up.

Perhaps the logic is more complex, but that what I seen. Based on this the function to transform web tables looks like

let

    Source = (link as text, name as text) => let

    Source = Web.Page(Web.Contents(link)),

    Data0 = Source{0}[Data],

    DataEnd = Table.SelectRows(Source, each ([ClassName] = "uk-table uk-text-nowrap")){0}[Data],
    DataMiddle = try Table.SelectRows(Source, each ([ClassName] = "uk-table")){0}[Data] otherwise Table.FromRows({}),

    ListOfColumns = List.Combine({
        List.FirstN(Table.ColumnNames(Data0),2),
        List.FirstN(Table.ColumnNames(DataEnd),2),
        Table.ColumnNames(DataMiddle)
    }),

    RemoveLastEmpty = Table.RemoveColumns(Data0,{"2"}),
    ReorderAsInList = Table.ReorderColumns(RemoveLastEmpty,ListOfColumns),
    RenameFirstEmpty = Table.RenameColumns(ReorderAsInList,{{"", "Product Name"}}),
    ProductName = Table.ReplaceValue(RenameFirstEmpty,"",name,Replacer.ReplaceValue,{"Product Name"}),
    DemoteHeaders = Table.DemoteHeaders(ProductName),

    EmptyTable = Table.FromRows({}),

    Result =
        if Source{0}[Source] = "Service"
        then EmptyTable
        else DemoteHeaders

in
    Result

    in Source

It has two branches of code - if web table exists we return transformed table, otherwise empty one.

Main query Links is practically the same, I only take as the source the table in your last excel sheet with links and Product names, named the table as "Products"

let
    Source = Excel.CurrentWorkbook(){[Name="Products"]}[Content],
    ToText = Table.TransformColumnTypes(Source,{{"Link", type text}, {"Product Name", type text}}),
    AddFromWeb = Table.AddColumn(ToText, "Tables", each fnTransfomLinkTable([Link], [Product Name])),
    RemoveUnused = Table.RemoveColumns(AddFromWeb,{"Link", "Product Name"}),
    ExpandWebTables = Table.ExpandTableColumn(RemoveUnused, "Tables",
        {"Column1", "Column2", "Column3", "Column4", "Column5", "Column6", "Column7"},
        {"Product number", "Product Name", "Unit/box", "Quantity", "Text1", "Text2", "Text3"}),
    RemoveEmptyTables = Table.SelectRows(ExpandWebTables, each ([Product number] <> null))
in
    RemoveEmptyTables

As result all web tables are combined in one returned to Excel. Together with headers for each web table since they are different.

Alternatively that could be unpivoted table generated by slightly modified above queries. Result is ProductsUnpivoted sheet. But it takes much more time to be generated.