Lo único que se me ocurre es lo siguiente:
Código:
Sub picture()
With ActiveSheet
.Pictures.Insert("C:\reloj.png").Select
.Shapes("1 Imagen").Cut
.Range("d100").Select
.PasteSpecial
End With
End Sub
Con esto pegaras la imagen en la casilla d100.
El problema es que si intentas ejecutar de nuevo la macro, no te va a funcionar porque cada vez que se pega en excell una imagen te la nombra primero "1 Imagen", segundo (aunque hayas borrado la Imagen 1) te la nombra como "2 Imagen") y así sucesivamente.
Si la macro la quieres para que pegue la imagen una sóla vez, bien, pero si lo que quieres es ejecutarla varias veces entonces no te va a servir
Siento no ser de más utilidad
Un saludo