Sub pic()
  Dim sFolder As String, sFiles As String

    sFolder = "D:\Мои документы\Загрузки\" ' путь к папке с картинками
    sFiles = Dir(sFolder & "*.jpg") 'все файлы jpg
    
    Cells(1).ColumnWidth = 23 'ширина
        Do While sFiles <> ""
            r = r + 1
            Cells(r, 1).RowHeight = 90 'высота
                With ActiveSheet.Shapes.AddPicture(sFolder & sFiles, msoFalse, msoCTrue, 0, 0, 0, 0)
                    .Top = Cells(r, 1).Top
                    .Left = Cells(r, 1).Left
                    .Width = 90 'ширина картинки
                    .Height = 90 'высота картинки
                    .Placement = xlMoveAndSize
                End With
            sFiles = Dir
        Loop
End Sub