Sub Test(tRange As Range)
Dim addin As COMAddIn
Dim automationObject As Object
Set addin = Application.COMAddIns("MyAddin")
Set automationObject = addin.Object
Call automationObject.Execute1(tRange)
 

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)

      If Not Intersect(Range("A:N"), Target) Is Nothing Then
        If Not xl Is Nothing Then Cancel = True: KopyrovatZanchenie Target, xl
    End If
End Sub

Public xl As Application

Sub test()

    Dim newWB As Workbook
    Set xl = New Application
    Set newWB = xl.Workbooks.Open("D:\Omben2.xlsm")
    With xl.Application
        .Visible = True: .WindowState = xlNormal
        .Top = 130: .Left = 500: .Width = 240: .Height = 240
    End With  

Sub KopyrovatZanchenie(ByRef cell As Range, ap As Application)

    Dim sh As Worksheet: Set sh = ap.Workbooks("Omben2.xlsm").Worksheets("Filtr")
    Range("a1").Resize(30, 1).Copy
    sh.Range("a1").PasteSpecial paste:=xlPasteValues
End Sub

Sub Test()

    Set xl = New Application
    Set newWB = xl.Workbooks.Open("D:\Omben2.xlsm")
    With xl.Application
        .Visible = True: .WindowState = xlNormal
        .Top = 130: .Left = 500: .Width = 240: .Height = 240
    End With
End Sub