Запрос данных из другой книги

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address <> "$N$3" Then Exit Sub
Set w = [O2:O100].Find(what:="", LookIn:=xlFormulas, lookAt:=xlWhole)
Range((Cells(2, 15).Address), (Cells(w.Row, 16).Address)).ClearContents
Set x = [B2:L2].Find(what:=[N3], LookIn:=xlFormulas, lookAt:=xlWhole)
If Not x Is Nothing Then
For i = 3 To Cells(Rows.Count, 1).End(xlUp).Row
число = Range(Cells(i, x.Column).Address)
If число <> "" And число <> 0 Then
Dim q As Range
Set q = [O2:O100].Find(what:="", LookIn:=xlFormulas, lookAt:=xlWhole)
q = Range(Cells(i, 1).Address)
Range(Cells(q.Row, 16).Address) = число
End If
Next i
End If
End Sub

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Address <> "$N$3" Then Exit Sub
    Range("O2:P" & Sheets(1).Cells(Sheets(1).Rows.Count, 15).End(xlUp).Row).ClearContents
    Dim con As New ADODB.Connection, rst As New ADODB.Recordset
    Const Adr As String = "C:\Users\V\Desktop\работа.xlsx" 'Полный путь к файлу работа.xlsx
    con.Open ("Provider=Microsoft.ACE.OLEDB.12.0; Data Source=" & Adr & "; Extended Properties=""Excel 12.0;HDR=Yes;IMEX=1""")
    If con.OpenSchema(adSchemaColumns, Array(Empty, Empty, "Лист1$", Range("N3").Value)).EOF Then con.Close: Exit Sub
    rst.Open ("SELECT F1 , [" & Range("N3").Value & "] FROM [Лист1$] WHERE NOT [" & Range("N3").Value & "] IS NULL"), con
    Range("O3").CopyFromRecordset rst
    rst.Close
    con.Close
End Sub