Macro para borrar celdas desbloqueadas

Copia el código en un módulo, luego seleccionas el rango y finalmente lo ejecutas (ojo que si el rango seleccionado es muy grande puede tardar mucho la ejecución)

Sub BorrarDesbloqueadas()
Dim r As Range
For Each r In Selection
   If r.Locked = False Then r.ClearContents
Next r
End Sub

Te anexo la macro actualizada. Primer tienes que seleccionar las celdas

Sub borra()
'Por.Dante Amor
    For Each c In Selection
        If c.Locked = False Then c.Value = ""
    Next
End Sub