Insertar imagen desde ruta con macros en diferentes celdas de una hoja de excel

Necesito insertar una imagen en una celda en la ficha medica de un alumno, la hoja contiene 28 alumnos cada uno con su respectiva ficha medica, espero y me puedan ayudar!

El código que estoy utilizando es el siguiente:

Sub insertarimg()

Dim ruta As String
Dim texto As String

ruta = Application.GetOpenFilename

On Error Resume Next
With selection.ShapeRange.Fill
.Visible.mactrue
.UserPicture ruta
.TextureTile = macfalse

End With

End Sub