VBA Insert Picture Dynamically In Cell Based On Cell Value and do nothing if cell empty

I have a statement with Image Dynamically In Cell (fom I11 to I19) I usually only use 2 or 3 lines, so the other 7-8 are empty. My macro command works fine in cells that are filled, but for empty cells it also inserts an image that says "The linked image cannot be displayed". I would like VBA not to insert an image if cell D11 to D19 is empty. Also, to run the command I have to click on the developer tab and macros, can this be automated (column D has data validation)?. Thank you

CODE:

Sub Insert_Multiple_Images()

Set Image_Names = Range("D11:D19")
Image_Location = "C:\Image"
Image_Format = ".png"

Set Cell_Reference = Range("I11:I19")

For i = 1 To Image_Names.Rows.Count
For j = 1 To Image_Names.Columns.Count
Set Image = ActiveSheet.Pictures.Insert(Image_Location + "" + Image_Names.Cells(i, j) + Image_Format)
Image.Top = Cell_Reference.Cells(i, j).Top
Image.Left = Cell_Reference.Cells(i, j).Left
Image.ShapeRange.Height = 45
Image.ShapeRange.Width = 75
Next j
Next i

End Sub

Jus add one IF statement:

PHP Code: 

            If .Value <> "" Then 


final code should be:

PHP Code: 

Sub Insert_Multiple_Images()
Set Image_Names = Range("D11:D19")
Image_Location = "C:\Image"
Image_Format = ".png"
Set Cell_Reference = Range("I11:I19")
For i = 1 To Image_Names.Rows.Count
    For j = 1 To Image_Names.Columns.Count
        Set Image = ActiveSheet.Pictures.Insert(Image_Location + "" + Image_Names.Cells(i, j) + Image_Format)
        With Cell_Reference.Cells(i, j)
            If .Value <> "" Then
                Image.Top = .Top
                Image.Left = .Left
                Image.ShapeRange.Height = 45
                Image.ShapeRange.Width = 75
            End If
        End With
    Next j
Next i
End Sub 


Unfortunately it doesn't work
Paste all images in one field (and in the one where it is positioned)

error posting! pls ignore.

Sub Insert_Multiple_Images()
Set Image_Names = Range("D11:D19")
Image_Location = "C:\Image"
Image_Format = ".png"
Set Cell_Reference = Range("I11:I19")
For i = 1 To Image_Names.Rows.Count
For j = 1 To Image_Names.Columns.Count
' Set Image = ActiveSheet.Pictures.Insert(Image_Location + "" + Image_Names.Cells(i, j) + Image_Format)
With Cell_Reference.Cells(i, j)
If .Value <> "" Then
Set Image = ActiveSheet.Pictures.Insert(Image_Location + "" + Image_Names.Cells(i, j) + Image_Format)
Image.Top = .Top
Image.Left = .Left
Image.ShapeRange.Height = 45
Image.ShapeRange.Width = 75
End If
End With
Next j
Next i
End Sub

I got the same result