Sub adv_PEOPLE(opnSH) 'параметр opnSH = объект обрабатываемого листа книги Excel
        
   opnSH.Cells.ClearOutline 'на листе очищаются все видимые линии, обрамляющие все ячейки
   
   opnSH.Rows("1:6").Delete 'удаляются верхние 6 строк
   opnSH.Columns(1).Delete 'удаляется первая колонка
   
   ix = 1 ' счётчик текущих строк устанавливаем в 1
   NullRowCount = 0 ' счётчик пустых строк, идущих подряд устанавливаем в 0
   While NullRowCount < 7 'цикл до тех пор, пока счётчик пустых строк < 7
       nnlc = 0 ' счётчик НЕпустых ячеек в строке. Ставим пока в 0
       For iCol = 1 To 15 ' перебираем первые 15 ячеек в строке
           If opnSH.Cells(ix, iCol) <> "" Then nnlc = nnlc + 1 'если значение ячейки не пустая строка, то увеличиваем счётчик непустых ячеек
       Next
       If nnlc = 0 Then ' если в переборе 15-ти ячеек строки ix не нашлось ни одной заполненной
           opnSH.Rows(spltnRows(ix, ix)).Delete 'удаляем строку ix
           NullRowCount = NullRowCount + 1  ' и увеличиваем счётчик найденных нулевых строк
       Else                   ' если же хоть одна ячейка строки ix заполнена, то ..
           NullRowCount = 0    ' Обнуляем счётчик пустых строк, идущих подряд
           ix = ix + 1         ' переходим к следующей строке
       End If
   Wend ' заканчиваем цикл по строкам, если встретили подряд 7 пустых строк
   
   opnSH.Rows("1:1").Insert Shift:=xlDown 'добавляем строку перед первой
   rgvset opnSH, "A", 1, "ФИО"                        'записываем в неё заголовки столбцов
   rgvset opnSH, "B", 1, "Должность"
   rgvset opnSH, "C", 1, "Департамент / Дирекция"
   rgvset opnSH, "D", 1, "Подразделение"
   rgvset opnSH, "E", 1, "Струртурная единица"
   rgvset opnSH, "F", 1, "Вид трудоустройства"
   
   opnSH.Columns("F:F").Insert Shift:=xlToRight ' вставляем столбец перед "F"
   opnSH.Columns("F:F").Insert Shift:=xlToRight ' и ещё раз вставляем столбец перед "F"
   ixend = GetLastRow(opnSH) 'определяем номер последней строки на листе
   For ix = 1 To ixend 'перебираем все оставшиеся строки. Для каждой строки...
       rgvset opnSH, "F", ix, rgv(opnSH, "B", ix) '.. копируем значение из ячейки "B" в ячейку "F" на той же строке
       rgvset opnSH, "G", ix, rgv(opnSH, "A", ix) '.. копируем значение из ячейки "A" в ячейку "G" на той же строке
   Next
   opnSH.Columns("A:A").Delete 'Удаляем колонку A
   opnSH.Columns("A:A").Delete 'Снова удаляем колонку A (бывш "B")
        
End Sub

Range("D5").FormulaLocal = "=ИНДЕКС(Ф4!$D$425:$AE$457; ПОИСКПОЗ($D11;Ф4!$A$425:$A$475;0);ПОИСКПОЗ('Справочник ГТП'!$F$7&H$9;Ф4!$D$422:$AE$422&Ф4!$D$423:$AE$423; 0))"
Range("D5:D255").FormulaArray = Range("D5").Formula