Sub get_pics()

Application.ScreenUpdating = False

Dim row As Integer
Dim imgsrc As String, imgdest As String

col = 2
coldes = 3
rowdes = 2

For row = 2 To 181


       imgsrc = Cells(row, col).Value
       imgdst = Cells(rowdes, coldes).Value
       
On Error Resume Next

With ActiveSheet.Pictures.insert(imgsrc)

.Left = Cells(rowdes, coldes).Left
.Top = Cells(rowdes, coldes).Top
        
        col = col
        coldes = coldes
        rowdes = rowdes + 1
End With

Next row

On Error GoTo 0

Application.ScreenUpdating = True

End Sub