Modificar Macro para que se trabaje con cualquier renglón

Trabaja solo con un renglón y quiero que pueda hacerlo con más de 100 renglones:

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