Dim iRow As Integer
Dim Book As Workbook

Application.DisplayAlerts = False
Application.Visible = False
For Each Book In Workbooks
    If Book.Path = "" Then Book.Close
Next Book

    SelfName = ActiveWorkbook.Name
      
 Workbooks(Name_PR).Activate
 iRow = Sheets("Данные1").UsedRange.Row + Sheets("Данные1").UsedRange.Rows.Count -  1 
 For i =  1  To iRow
    Workbooks(Name_PR).Activate
    Worksheets("Данные1").Rows(i).Copy
    Workbooks(SelfName).Activate
    Worksheets("Данные1").Select
    Worksheets("Данные1").Rows(i).Select
    Worksheets("Данные1").Paste
 Next i

 Workbooks(Name_PR).Activate
 iRow = Sheets("Данные2").UsedRange.Row + Sheets("Данные2").UsedRange.Rows.Count -  1 
 For i =  1  To iRow
    Workbooks(Name_PR).Activate
    Worksheets("Данные2").Rows(i).Copy
    Workbooks(SelfName).Activate
    Worksheets("Данные2").Select
    Worksheets("Данные2").Rows(i).Select
    Worksheets("Данные2").Paste
 Next i

  Cancel = MsgBox("Закрываем " + Name_PR + " ?", vbOKCancel)
  If Cancel = vbOK Then Workbooks(Name_PR).Close

For Each Book In Workbooks
    If Book.Path = "" Then Book.Close
Next Book
Application.Visible = True
Application.DisplayAlerts = True

arg = "'" + Path + "[" + File + "]" + Sheet + "'!" + Range(Ref).Range("A1").Address(, , xlR1C1)
GetValue = ExecuteExcel4Macro(arg)

    Dim cnn As ADODB.Connection
    Dim rst As ADODB.Recordset
    
    Set cnn = New ADODB.Connection
    Set rst = New ADODB.Recordset
    
    cnn.Open "Provider=Microsoft.Jet.OLEDB.4.0;" & _
      "Data Source=D:\1\1.xls;" & _
      "Extended Properties=""Excel 8.0;HDR=Yes;IMEX=1"""
    
    rst.Open "SELECT * FROM [Лист1$A1:B6]", cnn
    
    Range("A1").CopyFromRecordset rst
    
    rst.Close
    cnn.Close
    
    Set rst = Nothing
    Set cnn = Nothing