Mostrar imagen

Pon el siguiente código en los eventos de tu hoja, para mostrar una imagen al cambiar un dato en la celda D2

-----

Private Sub Worksheet_Change(ByVal Target As Range)
  If Target.Count > 1 Then Exit Sub
  If Target.Address = "$D$3" Then
    ActiveSheet.DrawingObjects("Rectángulo 1").Visible = Target.Value = "hola"
  End If
End Sub

-----

Para devolver la última fila del rango de celdas seleccionadas:

-----

Sub seleccionar_ultimacelda()
  Dim i&, f&, fila&
  i = Selection.Cells(1).Row
  f = Selection.Rows.Count
  fila = i + f - 1
End Sub

-----