=ЕСЛИ(
            ЕСЛИОШИБКА( ПОИСКПОЗ([@ПЕРЕМЕЩ];$G$13:$G$16;0)=СЧЁТЗ($G$13:$G$16);0);
             "за ним никого нет";
             ЕСЛИОШИБКА(
                       ИНДЕКС($G$13:$G$16;ПОИСКПОЗ([@ПЕРЕМЕЩ];$G$13:$G$16;0)+1);
                       "такого нет в списке"
                                        )
            )

let
    Источник = Excel.CurrentWorkbook(){[Name="Таблица1"]}[Content],
    ChangeType = Table.TransformColumnTypes(Источник,{{"№", Int64.Type}, {"Долж", type text}, {"ФИО", type text}, {"ПЕРЕМЕЩ", type text}, {"РАПОРТ", type text}}),
    Director = ChangeType{[Долж="Директор"]}[ФИО],
    Index = Table.AddIndexColumn(ChangeType, "Индекс", 0, 1, Int64.Type),
    ПЕРЕМЕЩ = {Director}&List.RemoveItems( List.RemoveNulls(Index[ПЕРЕМЕЩ]), {Director}),
    LA = List.Accumulate(
        {1..List.Count(ПЕРЕМЕЩ)-1},
        {Director},
        (s,c)=> [a = Index{[ПЕРЕМЕЩ=List.LastN(s, 1){0}]}[Индекс],
                 b = Index{a}[ФИО],
                 d = s&{b}
                ][d]   
    ),
    toTable = Table.ReorderColumns(Table.AddIndexColumn(Table.FromList(LA,null,{"ФИО"}),"№",1,1), {"№","ФИО"})
in
    toTable

let
    f=(Источник as table, lst as list) =>
    let
        //Источник = Excel.CurrentWorkbook(){[Name="Таблица1"]}[Content],
        ИзмененныйТип = Table.TransformColumnTypes(Источник,{{"№", Int64.Type}, {"Долж", type text}, {"ФИО", type text}, {"ПЕРЕМЕЩЕНИЕ", type text}, {"РАПОРТ", type text}, {"Служ столбец", Int64.Type}}),
        ПервыйВСпискеПеремещения =  List.RemoveItems(     List.RemoveNulls(ИзмененныйТип[ПЕРЕМЕЩЕНИЕ])   , lst  )  {0},
        СтолбецИндекса = Table.AddIndexColumn(ИзмененныйТип,"Индекс",1,1),
        СписокСПервымЧеловекомВНачале = {ПервыйВСпискеПеремещения}&List.RemoveItems(List.RemoveNulls(ИзмененныйТип[ПЕРЕМЕЩЕНИЕ]),{ПервыйВСпискеПеремещения}),
      ЦиклПоЦепочке = List.Generate(
          ()=> [Список = {ПервыйВСпискеПеремещения}, БывшийНаЭтойДолжности = null, i = 1],
          each [БывшийНаЭтойДолжности] <> ПервыйВСпискеПеремещения,
          each [Список = List.Combine({[Список],{БывшийНаЭтойДолжности}}),                                           
                БывшийНаЭтойДолжности = 
                  [a = СтолбецИндекса{[ПЕРЕМЕЩЕНИЕ=List.LastN([Список], 1){0}]}[Индекс],
                  b = СтолбецИндекса{[Индекс=a]}[ФИО]
                  ][b], 
                i = [i] +1],
          each List.Last([Список])
      )
    in
        ЦиклПоЦепочке,

    Источник =  Excel.CurrentWorkbook(){[Name="Таблица1"]}[Content] ,
    Перемещ = List.RemoveNulls(Источник[ПЕРЕМЕЩЕНИЕ]),
    LG = List.Last(
            List.Generate(
                ()=> [x = {}, y={}, z=Перемещ, i = 1],
                each not List.IsEmpty([z]),
                each [y = [y]&f(Источник,[x]) , x=y, z=List.RemoveItems([z],[x]), i = [i]+1],
                each [y]          
          )
    )
in
    LG