Creating macro to insert a picture by including specific picture name & path

Sub Picture()
For I = 2 To 999
  If Cells(I, 11) <> "X" and Cells(I, 1) <> "" Then     
    ActiveSheet.Pictures.Insert("\\gvamdp01\images" & (Cells(I, 9).Value)).Select
    Selection.ShapeRange.Height = 72
    Cells(I, 10).PasteSpecial
    Cells(I, 11) = "X"
  end if    
Next
End Sub