Не удается вставить плакаты с фильмами рядом с названиями фильмов в электронную таблицу

Question

Я написал скрипт в vba, чтобы загружать различные постеры фильмов с торрент-сайта и вставлять их в электронную таблицу рядом с соответствующими фильмами.Мой сценарий может анализировать названия фильмов в электронной таблице и загружать и сохранять изображения в папке.Чего я не могу сделать, так это поместить загруженные изображения рядом с каждым названием фильма в электронную таблицу.

Как разместить плакаты с фильмами в ячейках рядом с названием каждого фильма?

Мой скрипт на данный момент:

Sub DownloadAndEmbedImages()
    'customized directory location within double quotes
    Const strPath$ = "C:\Users\WCS\Desktop\Test\"
    Dim Http As New XMLHTTP60, Html As New HTMLDocument
    Dim post As Object, imgArr As Variant, R&

    'check out if the folder is empty. If not empty, delete them to download anew
    If Dir(strPath & "*.*") <> "" Then Kill strPath & "*.*"

    With Http
        .Open "GET", "https://yts.am/browse-movies", False
        .send
        Html.body.innerHTML = .responseText
    End With

    For Each post In Html.getElementsByClassName("img-responsive")
        R = R + 1: Sheets("Sheet1").Cells(R, 1) = post.alt
        imgArr = Split(post.src, "/")
        imgArr = imgArr(UBound(imgArr) - 1) & ".jpg"

        Http.Open "GET", post.src, False
        Http.send

        With CreateObject("ADODB.Stream")
            .Open
            .Type = 1
            .write Http.responseBody
            .SaveToFile (strPath & imgArr)
            .Close
        End With
    Next post
End Sub

Ссылка для добавления для выполнения вышеуказанного скрипта:

Microsoft XML, v6.0
Microsoft HTML Object library