Sub macr3()
 Dim sFolder As String, sFiles As String

 With Application.FileDialog(msoFileDialogFilePicker)
 If .Show = False Then Exit Sub
  sFiles = .SelectedItems(1)
 End With

 sFolder = sFolder & IIf(Right(sFolder, 1) = Application.PathSeparator, "",
 Application.PathSeparator)
 Application.ScreenUpdating = False
 sFolder = Dir(sFiles & "*.xls*")
 If sFiles <> "" Then

Workbooks.Open sFiles & sFolder

 'копируем нужный диапазон в откр. книге
 ActiveWorkbook.Sheets("Лист1").Range("B2:B16").Copy

 'закрываем книгу которую открывали для копирования
 ActiveWorkbook.Close

 'активируем нужную книгу
 Workbooks("main.xlsm").Activate

 'выделяем и вставляем скопированные данные
 ActiveWorkbook.Worksheets("04_06").Range("C3").Select
 ActiveSheet.Paste

 End If

 Application.ScreenUpdating = True

End Sub