Нужна надстройка по смещению строки

[Скрипт]

KApSuL,

1. создайте новую книгу Excel;
2. сохраните её как "Надстройка Excel". Для этого вызовите окно "Сохранение документа" и в поле "Тип файла" выберите "Надстройка Excel";
3. перейдите в VBA и поместите в эту книгу макрос;
4. нажмите "Сохранить"
5. закройте надстройку (она пока из себя обычную книгу представляет).

Надстройка готова.

Я вот так запускаю макрос в надстройке:

Sub ДляКнопки()

    'Здесь нужно указать путь, где находится надстройка
    Const sAddInPath As String = ""
        
    Dim bkAddIn As Excel.Workbook
    Dim oBook As Excel.Workbook
    
    'Проверка, что надстройка существует.
    If Dir(sAddInPath) = "" Then
        MsgBox "Нету надстройки: " & vbCr & sAddInPath, vbCritical
        Exit Sub
    End If
    
    'Проверка, что надстройка не открыта.
    On Error Resume Next
        Set oBook = Workbooks(Dir(sAddInPath))
        If Err.Number = 0 Then
            MsgBox "Перед запуском кода надо закрыть надстройку." & vbCr & _
                "Чтобы закрыть надстройку, закройте и откройте программу Excel.", vbCritical
            Exit Sub
        End If
    On Error GoTo 0
    
    'Открытие надстройки.
    Set bkAddIn = Workbooks.Open(Filename:=sAddInPath)
    
    'Запускаем код в надстройке.
    Application.Run Macro:=Dir(sAddInPath) & "!MainModule.Main"
    
    'Закрываем надстройку.
    bkAddIn.Close SaveChanges:=False
    
End Sub