Копирование ячейки с изображением внутри и вставка в другой лист

Question

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

Большое спасибо.

Do While shtPic.Cells(k, 1) <> Empty
    If shtPic.Cells(k, 1) = shtProforma.Cells(j, 2) Then
        shtPic.Cells(k, 3).Copy
        shtProforma.Cells(j, 3).PasteSpecial xlPasteAll
        Exit Do
    End If
    k = k + 1
Loop

Копирующая часть в порядке.Копирует из shtPic, но не вставляет в shtProforma.