Macro - Pegar imágenes con iterativa

Tengo una duda.
Hace poco que comienzo con las macros y he tenido un problema con una de ellas,
Lo que quiero hacer es pegar imágenes desde una ruta a mi hoja excel y actualmente solo las inserta como ruta y cuando la envío por un correo, esta persona no puede ver las imágenes.
Les adjunto mi código.

Sub Insertar_Imagenes()
Dim numero, fila As Integer
Dim nombre As String
numero = 1
nombre = "Foto " & "(" & numero & ")"
fila = 16
Range("E16").Select
ActiveSheet.Pictures.Insert( _
"C:\Users\Pyro\Desktop\Inspección-CB\Red\" & nombre & ".jpg").Select
Columns("E:E").ColumnWidth = 44
Rows(fila).RowHeight = 321
Do While numero <> 100
ActiveCell.Offset(1, 0).Select
numero = numero + 1
fila = fila + 1
nombre = "Foto " & "(" & numero & ")"
ActiveSheet.Pictures.Insert( _
"C:\Users\Pyro\Desktop\Inspección-CB\Red\" & nombre & ".jpg").Select
Rows(fila).RowHeight = 321
Loop
End Sub

Básicamente lo que hace es insertar la imagen en la celda E16 e ir insertando hasta la fotografía 100.
No sé qué tendría que hacer para que se guarden las imágenes y otra persona que no tenga las fotografías en su ordenador las pueda ver.
Cabe mencionar que la macro me corre a la perfección, solo tengo el problema de que las imagenes no se conservan como tal y solo parecen ser rutas.