Сканирование папки на наличие имен файлов .jpg, сопоставление имен файлов в ячейках листа Excel и вставка их в ячейки.

Question

Требуется код для сканирования папки Z:\Images и вставки соответствующих изображений в ячейки Excel:

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

Option Explicit

Sub Insert()

    Dim strFolder As String
    Dim strFileName As String
    Dim objPic As Picture
    Dim rngCell As Range

    strFolder = "C:\Users\Domenic\Pictures\Saved Pictures\" 'change the path accordingly
    If Right(strFolder, 1) <> "\" Then
        strFolder = strFolder & "\"
    End If

    Set rngCell = Range("E1") 'starting cell

    strFileName = Dir(strFolder & "*.png", vbNormal) 'filter for .png files

    Do While Len(strFileName) > 0
        Set objPic = ActiveSheet.Pictures.Insert(strFolder & strFileName)
        With objPic
            .Left = rngCell.Left
            .Top = rngCell.Top
            .Height = rngCell.RowHeight
            .Placement = xlMoveAndSize
        End With
        Set rngCell = rngCell.Offset(1, 0)
        strFileName = Dir
    Loop

End Sub

Код может извлекать нужные мне данные (файлы изображений), но он вставляет изображения в один столбец - Range ("E1").

Мне нужно написать условие if для совпадения названий изображений в excel и вставить изображение, когда совпадение найдено.