Private Sub btn_Add_modulе_IN_Excel_Click()
'On Error Resume Next
Dim strFP As String
Dim strFI_60_01 As String
Dim Podrazdelenie_naim As String
Me.PatchFilesExcel = OpenDialogFileName_01
Me.PatchFilesExcel.Requery
strFP = Me.PatchFilesExcel

'---------------
Dim xlApp As Object, xlBook As Object ', xlSheet As Object
Dim Worksheets As Workbook
Dim ThisWorkbook As Object
Set xlApp = CreateObject("Excel.Application")
Set xlBook = xlApp.Workbooks.Open(strFP)
xlApp.visible = True
'-------------------------

Const sFileName As String = "r:\ASUMI_RD_Excel\Module\mod_Ssylka.bas"
 
'Добавление модуля в активную книгу.

ActiveWorkbook.VBProject.VBComponents.Import FileName:=sFileName ' Здесь ошибка: Object variable not set (Error 91) 

'Обращение к процедуре в книге
xlApp.Application.Run "Select_Insert_Column"

End Sub

ActiveWorkbook.VBProject.VBComponents.Import FileName:=sFileName

Attribute VB_Name = "mod_Ssylka"

' Функция возвращает кол-во отступов, т.е номер уровня в группировке
Function КолОтступов(Ssylka As Range)
КолОтступов = Ssylka.IndentLevel
End Function


Sub Select_Insert_Column()
Dim MyRange As Object
Dim lLastRow As Long
Dim lLastCol As Long
 
' определяем  ПОСЛЕДНЮЮ ЯЧЕЙКУ НА ЛИСТЕ
    lLastRow = Cells(Rows.Count, 1).End(xlUp).Row


' добавляем колонку. Так как у нас из за форматирования выделяется и добавляется больше колонок то лишние удаляем
    
    ' Store the selected range in a variable.
    Set MyRange = Selection
    ' Select the entire column.
    Selection.EntireColumn.Select
    ' Insert Columns in all selected sheets.
    Selection.Insert
    ' Reselect the previously selected cells.
    MyRange.Select
    
' лишние удаляем
    Columns("A:I").Select
    Selection.Delete Shift:=xlToLeft
    
' Заполняем пустые ячейки значением "0"
    Range("B3").Select
    ActiveCell.FormulaR1C1 = "0"
    Range("B5").Select
    ActiveCell.FormulaR1C1 = "0"
    Range("B6:K6").Select
    
 ' Копируем в первую ячейку формулу
    Range("A1").Select
    ActiveCell.FormulaR1C1 = "=КолОтступов(RC[1])"
    
 ' Размножаем формулу из первой ячейки до последней
    Range("A1").Select
    Selection.Copy
    Range("$A$2:$A$" & lLastRow).Select
    ActiveSheet.Paste
    Application.CutCopyMode = False
 
MsgBox "Модуль добавлен"
End Sub