Table.AddColumn(Source, "Код подразделения*", each [#"Код отдела (текст)"] * Number.Power(10, if [#"Код отдела (текст)"] = 409040 then 5 else Number.RoundUp(Number.Log10([#"Код сектора (целое число)"]), 0) + 1) + [#"Код сектора (целое число)"])

let
    Source = Xml.Tables(File.Contents("D:\Path\Пример.xls"), null, 1251),
    sheet = Source{[Name="Worksheet"]}[Table],
    table = sheet{[Name="Table"]}[Table],
    rows = table{[Name="Row"]}[Table][[Cell]],
    toCells = Table.TransformColumns(rows, {"Cell", each if _[Data]? <> null then Table.FromRows({_[Data]}) else null}),
    heads = List.Distinct(List.Combine(List.RemoveNulls(List.Transform(toCells[Cell], each if _ <> null then Table.ColumnNames(_) else null)))),
    expanded = Table.ExpandTableColumn(toCells, "Cell", heads),
    toCellData = Table.ReplaceValue(expanded, null, null, (a, b, c) => if a <> null then a[#"Element:Text"]{0} else null, heads)
in
    toCellData

=ЕСЛИ(ОСТАТ(СТРОКА()-2;7)=0;ИНДЕКС('на входе'!$A$2:$A$21;ЦЕЛОЕ((СТРОКА()-2)/7)+1);"")