Macro: ir a celda activa

Muy buenas a todos: Tengo esta sintaxis correspondiente a una macro
que la hice de modo manual en un formulario de cuadro combinado,
determinando un respectivo rango (D5:D59) y cuando selecciono en este
cuadro, se activa en el menú de edición el "Ir a..." y se dirige a la
celda activa.

El problema que tengo es que cuando quiero insertar más filas y
haciendo la corrección en la sintaxis, la graba la modificación, pero
no opera y sale la siguiente ventana: "Se ha producido el error en
'1004 en tiempo de ejecución: No se encontraron celdas".



Sub Listadesplegable1_9_AlCambiar()
'
' Listadesplegable1_9_AlCambiar Macro
' Macro grabada el 24/05/2006 por
'
'Acceso directo: Ctrl+Mayús+I
'
Range("D5:D59").Select
ActiveSheet.Unprotect
Selection.SpecialCells(xlCellTypeFormulas, 1).Select
ActiveSheet.Protect DrawingObjects:=True, Contents:=True,
Scenarios:=True
End Sub

Agradeciendo de antemano su gentil colaboración,

Carlos Carnero Gálvez