Здравствуйте, Peachpuncher! В приложении текст макроса, который выстраивает структуру подчинённости. Таблица с Вашим примером и макросом для формирования иерархии Опасаюсь, что не очень понимаю задачу и, скорее всего, в Вашей таблице более двух столбцов, поэтому решение не очень подойдёт - но тут уж будет Ваша вина - не точно поставили задачу. Будем дорабатывать

Приложение:
Sub rrr()

Boss1 = "СД" ' айди самого большого начальника
First = "A1" ' адрес первой клетки с данными

Dim Mas As Variant

RAll = First + ":" + Replace(Range(First).End(xlDown).Offset(0, 1).Address, "$", "")
Range(RAll).NumberFormat = "@"

Mas = Range(RAll)
N1 = LBound(Mas, 1)
N2 = UBound(Mas, 1)
M1 = LBound(Mas, 2)
M2 = UBound(Mas, 2)

ReDim Index(N1 To N2, M1 To M2)
For i = N1 To N2
For j = M1 To M2
Mas(i, j) = CStr(Mas(i, j))
Next
Next

k = 0
L = 1
For i = N1 To N2
If Mas(i, M2) = Boss1 Then
k = k + 1
Index(i, M1) = CStr(k)
Index(i, M2) = L
Else
Index(i, M2) = 0
End If
Next

Logika = True
Do While Logika
Logika = False
For i = N1 To N2
If Index(i, M2) = L Then
KBoss = Mas(i, M1)
Ier = Index(i, M1)
k = 0
For ii = N1 To N2
If Mas(ii, M2) = KBoss Then
k = k + 1
Index(ii, M1) = Ier + "." + CStr(k)
Index(ii, M2) = L + 1
Logika = True
End If
Next
End If
Next
L = L + 1
Loop

For i = N1 To N2
For j = i To N2
If Index(j, M1) < Index(i, M1) Then
P = Index(i, M1)
Index(i, M1) = Index(j, M1)
Index(j, M1) = P

P = Mas(i, M1)
Mas(i, M1) = Mas(j, M1)
Mas(j, M1) = P

P = Mas(i, M2)
Mas(i, M2) = Mas(j, M2)
Mas(j, M2) = P

End If
Next
Range(First).Offset(i - N1, 2).NumberFormat = "@" ' !!!!!!!!!!!!!!!!!!
Range(First).Offset(i - N1, 2) = Index(i, M1) ' !!!!!!!!!!!!!!!!!!
Next

Range(RAll) = Mas

End Sub