Dim pasteCell As Range
Set wks = Worksheets("Лист1")
' Можно с циклом, если картинок вставлять несколько, можно без цикла, если точечно. Без цикла просто указываете в какую ячейку нужно вставить картинку (Range("B3")).
For j = 1 To N
Set pasteCell = wks.Range("A" & j)
' Параметры 35, 25 подгоните под нужные размеры ячейки
Call Worksheets("Лист1").Shapes.AddPicture("D:\foto\picture.JPG", msoTrue, msoTrue, pasteCell.Left, pasteCell.Top, 35, 25)
Next j