Modificar una macro sobre imagenes

[EDSANDOVAL]

Buenos días, tengo una macro que me permite ingresar imágenes en la columna B según los nombres que están en la columna A. Pero ahora quiero agregarle una opción para que sean 2 columnas distintas y las imágenes justo en la columna al lado de los nombres.

    For i = 2 To Range("A" & Rows.Count).End(xlUp).Row
        arch = Dir(ruta & Cells(i, "A") & ".*")
        If arch <> "" Then
            With Cells(i, "B")

Estas son las líneas de la parte de las instrucciones que deseo modificar, pero no consigo que funcionen agregando la columna C como ubicación adicional de los nombre y la columna D para que coloque las imagenes correspondientes.

Si alguien puede ayudarme mucho sabría agradecer.

 

 

[Antoni]

Revisa las normas del foro, es obligatorio subir un archivo con un ejemplo de lo que pretendes hacer.

Sube tu archivo y explícate.