L'esempio che ti ho scritto inserirà l'immagine nella 4° riga, 5° colonna.

codice:
Sub immagine()
ActiveSheet.Pictures.Insert("C:\tuo_path\tua_immagine.gif").Select
With ActiveSheet.Pictures(1)
.Left = ActiveWindow.VisibleRange.Columns(5).Left
.Top = ActiveWindow.VisibleRange.Rows(4).Top
End With
End Sub