' вместо этого
    With sh1
        y1 = .Cells(.Rows.Count, 3).End(xlUp).Row
        Dim a As Variant
        a = .Range(.Cells(1, 3), .Cells(y1, 3))
    End With

' можно так (ну и объявление переменной я обычно в начало модуля выношу)
Dim a
y1 = sh1.Cells(sh1.Rows.Count, 3).End(xlUp).Row
a = sh1.Range(sh1.Cells(1, 3), sh1.Cells(y1, 3))
' вывод - тут выгода ощутима: ОДИН раз указать лист вместо ПЯТИ

' вместо этого
    With sh2
        y2 = .Cells(.Rows.Count, 3).End(xlUp).Row
    End With

' можно так
y2 = sh2.Cells(sh2.Rows.Count, 3).End(xlUp).Row ' тут выгода менее заметна, но тоже есть — ОДИН вместо ДВУХ

Option Explicit
'====================================================================================================
Sub GetTargetsFromFile()
Dim x, arrFrom, arrNew, txt$, r&, c&
Const shName$ = "Лист1" ' задаём имя листа, с которого нужно забрать данные

txt = ActiveWorkbook.Path
If Not PRDX_ChooseFile(txt) Then Exit Sub
Application.ScreenUpdating = False
Workbooks.Open Filename:=txt, UpdateLinks:=False, ReadOnly:=False, IgnoreReadOnlyRecommended:=True, CorruptLoad:=xlRepairFile

On Error Resume Next
arrFrom = ActiveWorkbook.Worksheets(shName).UsedRange.Value2
If Err Then MsgBox "Лист «" & shName & "» ОТСТУТВУЕТ в выбранном файле!", vbCritical, "ОШИБКА ЛИСТА":       GoTo ex
If Not IsArray(arrFrom) Then MsgBox "На листе «" & shName & "» НЕТ ДАННЫХ!", vbCritical, "ОШИБКА ДАННЫХ":   GoTo ex
On Error GoTo 0
ActiveWorkbook.Close False

arrNew = ActiveSheet.UsedRange.Value2: c = 1
    For Each x In Array(2, 4, 6, 9)
        c = c + 1
        For r = 2 To UBound(arrNew, 1)
            arrNew(r, x) = arrFrom(r, c)
        Next r
    Next x

Worksheets.Add ' удалить или закомментировать, чтобы вставлять в исходные данные, а не на новый лист
Cells(1, 1).Resize(UBound(arrNew, 1), UBound(arrNew, 2)).Value2 = arrNew

ex:
If ActiveWorkbook.FullName <> ThisWorkbook.FullName Then ActiveWorkbook.Close False
Application.ScreenUpdating = True
End Sub
'====================================================================================================
Private Function PRDX_ChooseFile(DefPath$) As Boolean ' функция для выбора файла

    With Application.FileDialog(msoFileDialogFilePicker)
        .AllowMultiSelect = False
        .Title = "Выберите Excel-файлы"
        .Filters.Clear
        .Filters.Add "Файлы Excel", "*.xls?", 1
        .FilterIndex = 1
        .InitialFileName = DefPath
        .InitialView = msoFileDialogViewDetails
        If .Show = 0 Then Exit Function
        DefPath = .SelectedItems(1)
    End With

PRDX_ChooseFile = True
End Function
'====================================================================================================