Public Function BEx() As BExApplication
    Set BEx = Application.Run("BExAnalyzer.xla!GetBEx", ThisWorkbook)
End Function
Sub BExOnRefresh(ParamArray varname())

    If varname(0) = "DP_2" Then
   
        'откуда
        DPOffsetC = varname(1).Column
        DPOffsetR = varname(1).Row + 2
       
        DPOffsetLC = varname(1).Column + varname(1).Columns.Count - 1
        DPOffsetLR = varname(1).Row + varname(1).Rows.Count - 2
       
        'куда
        shiftR = 34
        shiftC = 2
       
        Dim mRng As Range
            Set mRng = Sheets("Технический лист").Range(Cells(DPOffsetR, DPOffsetC), Cells(DPOffsetLR, DPOffsetLC))
           
                If Application.CountA(mRng) = 0 Then
                    MsgBox "Empty!!!"
                    Exit Sub
                        Else
                            mRng.Copy
                            Sheets("Ведение данных").Cells(shiftR, shiftC).PasteSpecial xlPasteValues
                 End If
       
    End If
   
End Sub