borrar contenido las celdas no bloqueadas entre las celdas (A1:P30)

Hola amigo como hago para borrar el contenido de las celdas no bloqueadas el
rango que Quero borrar, están entre las celdas (A1:P30) , entre estas
celdas hay celdas tiene formula y están bloqueadas.



Si es posible con un macro si es posible.





Km**VE