Insert multiple pictures from specific cell values in specific cells

I don't have much knowledge about VBA, but I'm leaning. I hope someone can help me.

I found this code on the internet (from Computergaga). The code basically inserts a picture from a directory into a specific cell in Excel.
But the code does this only for one cell. I want to expand the code so that it can be used on multiple cells, for example: B2:B10.
So when a value is added to B2 it shows the corresponding picture in D2 and for B3 in D3... etc.

I would be very grateful if somebody could help me

Please Login or Register  to view this content.

Ok, I still have one problem. At first, I thought it wasn't really a problem, but the script never deletes a file. So when I change the values a lot of times... the file gets unnecessarily big. In my first code, I used "ActiveSheet.Pictures.Delete"... But this deletes all pictures on the sheet, right? I tried clearcontents... but this doesn't delete picture... Is there a way to replace the image when I change the value....

The scripts works, but it would be awesome if there is a way to really replace the image. Thanks in advance!