Insert Muliple Embed Objects VBA Code

Hello,
I am looking for a script that will automatically insert muliple embed objects to cells in excel
And this is my case:

- I have a sheet with a list name of pics in column B4. And I want store embed objects in cells at column C4
- I was stored images in D:\image\ with extension .tif
anh this is screenshot my sheet in excel
https://farm3.staticflickr.com/2888/9847440574_d249eb2864.jpg
and my folder path
https://farm3.staticflickr.com/2878/9847344004_9efc4b4ae7.jpg

I really appreciate if someone can help me. Thanks you!
Sorry for my English and expression. ^^