[Iska]

Например, так:

читать дальше »

Код:

Option Explicit

Sub Sample()
    Dim i As Long
    Dim objRange As Range

    With Application.FileDialog(msoFileDialogOpen)
        With .Filters
            .Clear
            .Add "Microsoft Excel Workbooks", "*.xls"
            .Add "All files", "*.*"
        End With
        
        .AllowMultiSelect = False
        .InitialView = msoFileDialogViewDetails
        
        If Not .Show() = 0 Then
            For i = 1 To .SelectedItems.Count
                Set objRange = Selection
                
                With Application.Workbooks.Open(.SelectedItems.Item(i))
                    .Sheets.Item("Лист1").Range("b3:c8").Copy
                    
                    With ThisWorkbook.Sheets.Item("Лист1")
                        .Paste objRange
                    End With
                    
                    Application.CutCopyMode = False
                    .Close
                End With
                
                Exit For
            Next i
        End If
    End With
End Sub