Перенос данных из нескольких файлов в один (на разные листы)

Sub ShowFileDialog()
    Dim oFD As FileDialog
    Dim x, lf As Long
    Dim wb As Workbook, wbi As Workbook
    Set wb = ActiveWorkbook
    'назначаем переменной ссылку на экземпляр диалога
    Set oFD = Application.FileDialog(msoFileDialogFilePicker)
    With oFD 'используем короткое обращение к объекту
        .AllowMultiSelect = True
        .Title = "Выбрать файлы отчетов" 'заголовок окна диалога
        .Filters.Clear 'очищаем установленные ранее типы файлов
        .Filters.Add "Excel files", "*.xls*;*.xla*", 1 'устанавливаем возможность выбора только файлов Excel
        .InitialFileName = "С:\Temp\Книга1.xlsx" 'назначаем папку отображения и имя файла по умолчанию
        .InitialView = msoFileDialogViewDetails 'вид диалогового окна(доступно 9 вариантов)
        If oFD.Show = 0 Then Exit Sub 'показывает диалог
        'цикл по коллекции выбранных в диалоге файлов
        For lf = 1 To .SelectedItems.Count
            x = .SelectedItems(lf) 'считываем полный путь к файлу
            Debug.Print x
            Set wbi = Workbooks.Open(x) 'открытие книги
            Select Case True
                Case InStr(1, x, "База", vbTextCompare)
                    'тут код обработки файла вмени которого есть "База" с переходом на нужный лист и пр.
                Case InStr(1, x, "ОСВ", vbTextCompare)
                    'тут код обработки файла вмени которого есть "ОСВ" с переходом на нужный лист и пр.
                Case InStr(1, x, "РЕПО", vbTextCompare)
                    'тут код обработки файла вмени которого есть "РЕПО" с переходом на нужный лист и пр.
                Case InStr(1, x, "ЛС", vbTextCompare)
                    'тут код обработки файла вмени которого есть "ЛС" с переходом на нужный лист и пр.
 
'                и тд
            End Select
        Next
    End With
End Sub