Run-time error 1004

Sub zapros_k_prn()
    Лист8.Select
    Cells.Select
    Selection.Delete Shift:=xlUp
    With ActiveSheet.QueryTables.Add(Connection:=Array(Array( _
        "ODBC;DSN=Файлы Excel;DBQ=" & ThisWorkbook.FullName & ";DefaultDir=C:\" _
        ), Array( _
        Right(ThisWorkbook.Path, Len(ThisWorkbook.Path) - 3) & ";DriverId=790;MaxBufferSize=2048;PageTimeout=5" _
        ), Array(";")), Destination:=Range("A1"))
        .CommandText = Array( _
        "SELECT `PRN$`.F1, `PRN$`.F2, `PRN$`.F3, `PRN$`.F4, `PRN$`.F15, `PRN$`.F16, `PRN$`.F24+`PRN$`.F25+`PRN$`.F26+`PRN$`.F27+`PRN$`.F28+" _
        , _
        "`PRN$`.F29+`PRN$`.F30+`PRN$`.F31+`PRN$`.F32+`PRN$`.F33+`PRN$`.F34+`PRN$`.F35+`PRN$`.F36+`PRN$`.F37+`PRN$`.F38+`PRN$`.F39+" _
        , _
        "`PRN$`.F40+`PRN$`.F41, `PRN$`.F17+`PRN$`.F18+`PRN$`.F19+`PRN$`.F20+`PRN$`.F21+`PRN$`.F22+`PRN$`.F23+`PRN$`.F42, `PRN$`.F43, `PRN$`.F44," _
        , _
        "`PRN$`.F45, `PRN$`.F46, `PRN$`.F47, `PRN$`.F48, `PRN$`.F95, `PRN$`.F96, `PRN$`.F103+`PRN$`.F104+`PRN$`.F105+`PRN$`.F106+`PRN$`.F107," _
        , _
        "`PRN$`.F97+`PRN$`.F98+`PRN$`.F99+`PRN$`.F100+`PRN$`.F101+`PRN$`.F102, `PRN$`.F108, `PRN$`.F109, `PRN$`.F110, `PRN$`.F111," _
        , _
        "`PRN$`.F112, `PRN$`.F113, `PRN$`.F114, `PRN$`.F115, `PRN$`.F175, `PRN$`.F176, `PRN$`.F182+`PRN$`.F183+`PRN$`.F184+`PRN$`.F185+`PRN$`.F186," _
        , _
        "`PRN$`.F177+`PRN$`.F178+`PRN$`.F179+`PRN$`.F180+`PRN$`.F181+`PRN$`.F187, `PRN$`.F188, `PRN$`.F189, `PRN$`.F190, `PRN$`.F191, `PRN$`.F192," _
        , _
        "`PRN$`.F193 FROM `PRN$` `PRN$`" _
        )
        .Refresh BackgroundQuery:=False
    End With
End Sub

Sub Transfer()
' Macro recorded 10/21/00 by brunos
' Transfer to be given to Accounts receivable
 
    Application.ScreenUpdating = False
 
    Dim Mc13 As Range, Mc14 As Range, Mc15 As Range
    Dim Mcdf As String, Mcdg As String, Mcdh As String
   
    Set Mc13 = Worksheets("Transfer").Cells(3, 14)    'N3
    Set Mc14 = Worksheets("Transfer").Cells(4, 14)    'N4
    Set Mc15 = Worksheets("Transfer").Cells(5, 14)    'N5
    
    Mcdf = Mc13.Value
    Mcdg = Mc14.Value
    Mcdh = Mc15.Value
    
    ActiveSheet.Unprotect
    
    Range("A8:G38").Select
    Application.CutCopyMode = False
    Selection.ClearContents
    
    Range("Q1").Select
    ActiveCell.FormulaR1C1 = "Done"
    
    Range("O7:U34").Select
    Selection.Copy
    Range("W7").Select
    Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
        False, Transpose:=False
    Application.CutCopyMode = False
    Selection.Sort Key1:=Range("AA8"), Order1:=xlDescending, Header:=xlGuess, _
        OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
    Range(Mcdf).Select
    Selection.Copy
    Range("A8").Select
    Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
        False, Transpose:=False
    
    Selection.Copy
    ChDir "L:\Bank"
    Workbooks.Open Filename:="\\10.54.202.14\ac_group\Bank\TRANSFER AR - US $.xls"
    Range("A7").Select
   Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
    False, Transpose:=False
    ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
    Range("B3").Select
    Application.CutCopyMode = False
    ChDir Mcdh
    ActiveWorkbook.SaveAs Filename:=Mcdg, _
        FileFormat:=xlNormal, Password:="", WriteResPassword:="", _
        ReadOnlyRecommended:=False, CreateBackup:=False
    ActiveWindow.Close
    ChDir "L:\Bank"
    Range("A7").Select
    ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
End Sub