Открыть файлы с определенным именем, копировать диапазон, закрыть файл

Question

Я пытаюсь написать код, чтобы сделать что-то вроде этого:

У меня уже есть небольшой код, который спрашивает меня, какие файлы следует открывать: обычно у меня есть файлы, которые начинаются с "190522" (гггдд). Поэтому я пишу «190522» в сообщении, и оно открывает только те файлы, которые содержат «190522» в имени.

Итак, после запуска моего кода у меня есть оригинальная рабочая книга, которая содержит макрос и другие (скажем, 10) рабочие книги, из которых я должен скопировать некоторые данные и вставить их в оригинальную рабочую книгу, лист «Импортировать данные» один под другим, в столбцах А и В.

Option Explicit

Sub OpenFiles()

    Dim MyFolder As String
    Dim MyFile As String
    Dim MyName As String

    MyFolder = "C:\Users\User\Desktop\New folder\"
    MyName = InputBox("Please enter name to search for:")
    MyFile = Dir(MyFolder & "\*" & MyName & "*.xls")

    Do Until MyFile = ""
        Workbooks.Open Filename:=MyFolder & "" & MyFile
        MyFile = Dir
    Loop

End Sub

Диапазон, который необходимо скопировать из уже открытых рабочих книг, - A15: B15. После того, как этот диапазон будет скопирован из открытых книг, эти книги должны быть закрыты без сохранения.

Так как я только начинаю с VBA, любая помощь будет более ценной. Заранее спасибо.