Вставка выбранных имен файлов / путей из каталога

Question

Я ищу код VBA, который поможет мне заполнить электронную таблицу.В столбце «A» у меня есть имена файлов (с расширением), а в столбце «B» - путь к файлу.Я создал кнопку для запуска функции.Я хотел бы иметь возможность открыть каталог, выделить определенные файлы в этом каталоге и скопировать их имена и путь в следующую доступную строку в столбцах A и B соответственно.

Мне удалось добраться до точки, где я могу импортировать имена файлов и путь для ВСЕХ файлов в заданной папке (показано ниже), но я хочу иметь возможность выбирать определенные файлы для заполнения листаи вставить их в следующую доступную строку.

Sub GetFileNames()

Dim xFSO As Object
    Dim xFolder As Object
    Dim xFile As Object
    Dim xFiDialog As FileDialog
    Dim xPath As String
    Dim i As Integer
    Set xFiDialog = Application.FileDialog(msoFileDialogFolderPicker)
    If xFiDialog.Show = -1 Then
        xPath = xFiDialog.SelectedItems(1)
    End If
    Set xFiDialog = Nothing
    If xPath = "" Then Exit Sub
    Set xFSO = CreateObject("Scripting.FileSystemObject")
    Set xFolder = xFSO.GetFolder(xPath)
    ActiveSheet.Cells(1, 1) = "FileName"
    ActiveSheet.Cells(1, 2) = "FilePath"
    i = 1
    For Each xFile In xFolder.Files
        i = i + 1
        ActiveSheet.Cells(i, 1) = xFile.Name
        ActiveSheet.Cells(i, 2) = xPath
    Next

End Sub

Тогда, надеюсь, я смогу создать список выбранных файлов по разным путям на одном листе.Пожалуйста, помогите.