Problema con macro: necesito que modifiquen mi macro para que se repita con cada renglón

La macro que tengo trabaja con la celda C5 y el objeto Foto1 que se encuentra en el mismo renglón.

Mi lista tiene mas de 200 renglones. Quiero añadir los objetos Foto2, Foto3, etc. Para las celdas que contengan valor en la columna C.

Esta es la Macro:

Private Sub Worksheet_Change(ByVal Target As Range)

Dim RutaArchivo As String
Dim RutaImagen As String

On Error GoTo ManejadorErrores

'ima = ActiveCell.Row

RutaArchivo = ThisWorkbook.Path
RutaImagen = RutaArchivo & "\IMAGENES\" & Sheets("LISTA").Range("C5").Value

ActiveSheet.Shapes("Foto1").Fill.UserPicture (RutaImagen)

Exit Sub

ManejadorErrores:
ActiveSheet.Shapes("Foto1").Fill.UserPicture (RutaArchivo & "\IMAGENES\sinima.JPG")

End Sub