let
Source = {1..21610},
#'Converted to Table' = Table.FromList(Source, Splitter.SplitByNothing(), null, null, ExtraValues.Error),
#'Inserted Modulo' = Table.AddColumn(#'Converted to Table', 'Modulo', each Number.Mod([Column1], 40), type number),
#'Filtered Rows' = Table.SelectRows(#'Inserted Modulo', each true),
#'Inserted Addition' = Table.AddColumn(#'Filtered Rows', 'Addition', each [Modulo] + 1, type number),
#'Removed Columns' = Table.RemoveColumns(#'Inserted Addition',{'Addition'}),
#'Inserted Subtraction' = Table.AddColumn(#'Removed Columns', 'Subtraction', each [Modulo] - 1, type number),
#'Removed Columns1' = Table.RemoveColumns(#'Inserted Subtraction',{'Subtraction'}),
#'Inserted Subtraction1' = Table.AddColumn(#'Removed Columns1', 'Subtraction', each [Column1] - 1, type number),
#'Filtered Rows1' = Table.SelectRows(#'Inserted Subtraction1', each ([Modulo] = 1)),
#'Removed Columns2' = Table.RemoveColumns(#'Filtered Rows1',{'Modulo'}),
#'Reordered Columns' = Table.ReorderColumns(#'Removed Columns2',{'Subtraction', 'Column1'}),
#'Renamed Columns' = Table.RenameColumns(#'Reordered Columns',{{'Subtraction', 'PageStartNumbers'}}),
#'Filtered Rows2' = Table.SelectRows(#'Renamed Columns', each [PageStartNumbers] < 400),
#'Changed Type' = Table.TransformColumnTypes(#'Filtered Rows2',{{'PageStartNumbers', type text}}),
#'Invoked Custom Function' = Table.AddColumn(#'Changed Type', 'fnAudifonos', each fnAudifonos([PageStartNumbers])),
#'Expanded fnAudifonos' = Table.ExpandTableColumn(#'Invoked Custom Function', 'fnAudifonos', {'Column1', 'Precio', 'Descuento'}, {'Column1.1', 'Precio', 'Descuento'}),
#'Changed Type1' = Table.TransformColumnTypes(#'Expanded fnAudifonos',{{'Precio', Currency.Type}, {'Descuento', Percentage.Type}}),
#'Renamed Columns1' = Table.RenameColumns(#'Changed Type1',{{'Column1.1', 'Nombre'}})
in
#'Renamed Columns1'