Option Explicit

Private Const DebugModeOn = False           ' false отключает возможность взаимодействовать с
                                            ' книгой во время работы макроса

'------------------------- основной модуль (вызавается при обновлении каждого запроса)-----------------------------
Sub BExOnRefresh(ParamArray varname())
    Dim dataRange        As Range
    Dim dataOffsetX      As Integer
    Dim dataOffsetY      As Integer
    Dim DPOffsetX        As Integer
    Dim DPOffsetY        As Integer
    Dim dataColumnsCount As Integer
    Dim dataRowsCount    As Integer
    Dim isEmpty          As Boolean
    Dim FRange           As Range
    Dim R                As Integer
    Dim WN               As String
   
    If Not DebugModeOn Then
        Application.ScreenUpdating = False
        Application.Interactive = False
        Application.EnableEvents = False
        Application.DisplayAlerts = False
    End If
   
    WN = varname(1).Worksheet.Name
   
    'Определение начальной строки и столбца ячейки с данными
    dataOffsetX = BEx.DataProviders(varname(0)).Result.Grid.firstdatacell.x
    dataOffsetY = BEx.DataProviders(varname(0)).Result.Grid.firstdatacell.y
                   
    'Определение начальной строки и столбца таблицы
    DPOffsetX = varname(1).Column
    DPOffsetY = varname(1).Row
   
    ' Если данные в датапровайдере есть данные - определение количества строк и столбцов в таблице с результатом
    If dataOffsetY > 0 Then
        dataColumnsCount = varname(1).Columns.count - dataOffsetX
        dataRowsCount = varname(1).Rows.count - dataOffsetY
        isEmpty = False
    Else
        isEmpty = True
    End If
           
    If Not isEmpty Then
        ' область с данными
        Set dataRange = Range(Worksheets(WN).Cells(DPOffsetY + dataOffsetY, DPOffsetX + dataOffsetX), _
                                        Worksheets(WN).Cells(DPOffsetY + dataOffsetY + dataRowsCount - 1, DPOffsetX + dataOffsetX + dataColumnsCount - 1))
        Set FRange = dataRange.Rows(1)
        For R = 3 To dataRange.Rows.count Step 2
            Set FRange = Union(FRange, dataRange.Rows(R))
        Next R
       
        FRange.Style = "myStyle"
    End If
       
    If Not DebugModeOn Then
        Application.ScreenUpdating = True
        Application.Interactive = True
        Application.EnableEvents = True
        Application.DisplayAlerts = True
    End If

End Sub

Sub Output(ByVal Text As String, ByVal Level As Integer)

    If Not (Err Is Nothing) Then
        If Err.Number <> 0 Then
            Text = Text & _
                vbCrLf & "Номер: " & Err.Number & _
                vbCrLf & "Описание: " & Err.Description & _
                vbCrLf & "Место возникновения: " & Err.Source
            Level = vbCritical
        End If
    End If
   
    Call MsgBox(Text, vbOKOnly + Level, MsgBoxTitle)
End Sub

...

  If Not DebugModeOn Then
        Application.ScreenUpdating = False
        Application.Interactive = False
        Application.EnableEvents = False
        Application.DisplayAlerts = False
    End If
    On Error GoTo ExitCallBack
...
' здесь логика
...

ExitCallBack:
   
    If Not DebugModeOn Then
        Application.ScreenUpdating = True
        Application.Interactive = True
        Application.EnableEvents = True
        Application.DisplayAlerts = True
    End If
   
    If Err.Number > 0 Then
        Output "Ошибка в работе макроса.", vbCritical
    End If
   
    On Error GoTo 0
...