Копирование на определённые листы

[AlexanderJin]

Добрый день, форумчане!
Просьба помочь с написание кода. Суть заключается в том, что нужно копировать первые листы из одних книг на определённо поименованные листы других книг, до копирования соответсвенно предоставлять выбор из какого файла будет производится копирование. Нашёл код, но он копирует данные только на текущий лист, с которого запускаешь код. Спасибо за помощь. Вот код, который нашёл:

Sub Get_Value_From_Book()
        Dim sFile As String, sh As Worksheet, ac As Long
        With Application.FileDialog(msoFileDialogFilePicker)
            .Filters.Clear
            .Filters.Add "Microsoft Excel files", "*.xls"
            .AllowMultiSelect = False
            .InitialFileName = ThisWorkbook.Path
            If .Show = 0 Then Exit Sub
            sFile = .SelectedItems(1)
        End With
        Set sh = ActiveWorkbook.ActiveSheet
        
        Range("H6:AX" & Cells(Rows.Count, 1).End(xlUp).Row).Clear
        With Application
            'отключаем обновление экрана - это убыстрит работу макроса
            .ScreenUpdating = False
            'отключаем события книги
            .EnableEvents = False
            'включаем ручной пересчёт формул - это убыстрит работу макроса
            ac = .Calculation: .Calculation = xlCalculationManual
            With GetObject(sFile).Sheets(1).UsedRange
                .Resize(.Rows.Count - 5).Offset(5).Copy sh.[H6]
                '.Parent.Close False
            End With
            'возвращаем назад всё отключенное/изменённое
            .ScreenUpdating = True
            .EnableEvents = True
            .Calculation = ac
        End With
End Sub

[IgorGO]

в этой строке
.Resize(.Rows.Count - 5).Offset(5).Copy sh.[H6]
вместо
sh.[H6]
укажите книгу, лист, ячейку, в которую должны быть скопированы данные.