Sub CopyDataFromFile()
   Dim vData, sShName As String, sAddress As String, LastRow As Long, Wb As Workbook, Rng As Range, arrFiles As Variant
   Dim ActSht As Worksheet, SourceSht As Worksheet
   
   'запоминаем активный лист из файла с макросом
   Set ActSht = ActiveSheet
   'диалог выбора файла
   arrFiles = ShowFileDialog()
   'отключаем обновление экрана
   Application.ScreenUpdating = False
   'открываем файл
   Set Wb = Workbooks.Open(Filename:=arrFiles(1), UpdateLinks:=False, ReadOnly:=True)
   sShName = "TDSheet" 'имя листа из которого берём информацию
   Set SourceSht = Wb.Worksheets(sShName)
   
   With SourceSht
       LastRow = .Cells(.Rows.Count, "D").End(xlUp).Row 'последняя заполненная строка в столбце А
   End With
   
   'столбец А - копируем/вставляем
   vData = SourceSht.Range("D7:D" & LastRow).Value 'от D7 до D... последняя заполненная строка
   ActSht.Range("D2").Resize(UBound(vData, 1), UBound(vData, 2)).Value = vData 'Записываем данные
       
   vData = SourceSht.Range("E7:E" & LastRow).Value 'от E7 до E... последняя заполненная строка
   ActSht.Range("E2").Resize(UBound(vData, 1), UBound(vData, 2)).Value = vData 'Записываем данные
       
   vData = SourceSht.Range("H7:H" & LastRow).Value 'от H7 до H... последняя заполненная строка
   ActSht.Range("F2").Resize(UBound(vData, 1), UBound(vData, 2)).Value = vData 'Записываем данные

   vData = SourceSht.Range("I7:I" & LastRow).Value 'от I7 до I... последняя заполненная строка
   ActSht.Range("G2").Resize(UBound(vData, 1), UBound(vData, 2)).Value = vData 'Записываем данные
  'закрываем файл
   Wb.Close False
   'Включаем обновление экрана
   Application.ScreenUpdating = True
   MsgBox "Данные из файла скопированы!", vbInformation, ""
End Sub

Sub CopyDataFromFile()
   Dim vData, sShName As String, sAddress As String, LastRow As Long, Wb As Workbook, Rng As Range, arrFiles As Variant
   Dim ActSht As Worksheet, SourceSht As Worksheet
   
   'запоминаем активный лист из файла с макросом
   Set ActSht = ActiveSheet
   'диалог выбора файла
   arrFiles = ShowFileDialog()
   'отключаем обновление экрана
   Application.ScreenUpdating = False
   'открываем файл
   Set Wb = Workbooks.Open(Filename:=arrFiles(1), UpdateLinks:=False, ReadOnly:=True)
   sShName = "Отчет" 'имя листа из которого берём информацию
   Set SourceSht = Wb.Worksheets(sShName)
   
   With SourceSht
       LastRow = .Cells(.Rows.Count, "A").End(xlUp).Row 'последняя заполненная строка в столбце А
   End With
   
   'столбец А - копируем/вставляем
   vData = SourceSht.Range("A1:A" & LastRow).Value 'от А1 до А... последняя заполненная строка
   ActSht.Range("A4").Resize(UBound(vData, 1), UBound(vData, 2)).Value = vData 'Записываем данные
       
   'столбец C - копируем/вставляем
   vData = SourceSht.Range("C1:C" & LastRow).Value 'от C1 до C... последняя заполненная строка
   ActSht.Range("C4").Resize(UBound(vData, 1), UBound(vData, 2)).Value = vData 'Записываем данные
       
   'столбец D - копируем/вставляем
   vData = SourceSht.Range("D1:D" & LastRow).Value 'от D1 до D... последняя заполненная строка
   ActSht.Range("D4").Resize(UBound(vData, 1), UBound(vData, 2)).Value = vData 'Записываем данные

   'и далее
   
   'закрываем файл
   Wb.Close False
   'Включаем обновление экрана
   Application.ScreenUpdating = True
   MsgBox "Данные из файла скопированы!", vbInformation, ""
End Sub

Sub copy()
    Dim sShName As String, sAddress As String, vData
    'отключаем обновление экрана
    Application.ScreenUpdating = False
    Workbooks.Open Filename:="Выбрать нужный файл", ReadOnly:=True 'Как заменить эту строку,на то, чтобы выбирать нужный .xlsx файл для обработки?
    sAddress = "A1:A350" 'Как заменить статический диапазон выбранных ячеек в столбце А, на динамический диапазон (до последней ячейки со значением в столбце А)?
    'получаем значения
    vData = Sheets("Отчет").Range(sAddress).Value
    ActiveWorkbook.Close False
    'Записываем данные на активный лист книги, с которой запустили макрос
    If IsArray(vData) Then
        [A4].Resize(UBound(vData, 1), UBound(vData, 2)).Value = vData
    Else
        [A4] = vData
    End If
    'Включаем обновление экрана
    Application.ScreenUpdating = True
End Sub