Sub Кнопка1_Щелчок()
Dim fd As FileDialog
Set fd = Application.FileDialog(msoFileDialogFilePicker)
   fd.Title = "Выберите файл"
   fd.Filters.Clear
     If fd.Show = - 1 then 
       strfile = fd.SelectedItems(1)
     End if

Dim Svod as New Excel.Application
Svod.Visible = True
Set xls = Svod.Workbooks.Open(Filename := strfile)
d2 = xls.Name

'далее при первой попытке копирования одного значения код пишет 'Subject out of range'
Workbooks("Автоформа").Sheets("Автоформа").Cells(2,4) = Svod.Workbooks(d2).Sheets("Данные").Cells(9, 4)