Сортировка списка значений по другому списку

[mmet]

Прошу помощи в решении, вероятно, несложной задачи для понимающих

Есть список файлов типа:
3471.jpg
3472.jpg
3473.jpg
3474.jpg
3475.jpg
3476.jpg
3477.jpg
3478.jpg
3479а.jpg
3493.jpg

Также есть список выборочных позиций из первого (заглавные изображения), например:
3471.jpg
3475.jpg
3476.jpg
3493.jpg

Как сделать, чтобы в итоге из первого списка получить список, где в первом столбце только значения из второго списка, а в последующих столбцах остальные названия, т.е.:
3471.jpg 3472.jpg 3473.jpg 3474.jpg
3475.jpg
3476.jpg 3477.jpg 3478.jpg 3479а.jpg
3493.jpg

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

[DiemonStar]

исходные данные сортированы или нет? Что должно получиться при таких исходных данных:

3475.jpg
3476.jpg
3471.jpg
3472.jpg
3473.jpg
3493.jpg
3474.jpg
3477.jpg
3478.jpg
3479а.jpg

??

[mmet]

Сообщение от DiemonStar

исходные данные сортированы или нет? Что должно получиться при таких исходных данных:

3475.jpg
3476.jpg
3471.jpg
3472.jpg
3473.jpg
3493.jpg
3474.jpg
3477.jpg
3478.jpg
3479а.jpg

??

всё сортировано изначально, второй список получается удалением лишних позиций из первого, поэтому нарушения порядка следования нет
первые позиции двух списков всегда одинаковые

[Hugo121]

Словари рулят! (без массивов )

Sub tt()
    Dim cc As Range, x&, y&

    With CreateObject("scripting.dictionary")
        For Each cc In [a13:a16].Cells
            .Item(cc.Value) = 0&
        Next

        x = 12: y = 1
        For Each cc In [a1:a10].Cells
            If .exists(cc.Value) Then
                x = x + 1: y = 1
            Else
                y = y + 1
                Cells(x, y) = cc.Value
            End If
        Next

    End With
End Sub

[mmet]

спасибо!
то что нужно, пошел вникать в код