Borrar en un rango todos los datos, pero no fórmulas

Para Borrar en un rnago solo los datos pero no las fórmulas, selecciona el rango y haz correr esta Macro:

Código:

Sub BorraDatos()
Dim Celda As Range
Dim estado as integer

estado = Application.Calculation
Application.Calculation = xlCalculationManual
Application.ScreeUpdating = False
Application.Enableevents = False



For Each Celda In Selection
If Not Celda.HasFormula Then Celda.ClearContents
Next Celda

Application.Calculation = estado
Application.Enableevents = True
End Sub

Muy interesante Gali me servira para unas planillas interminables que tengo en las cuales tengo que actualizar solo los datos pero no borrar las formulas

te dejo un ejemplo que hace lo mismo, pero utilizando mucho menos código y evitando el uso de bucles, que en el caso de rangos con gran cantidad de celdas, pueden demorar bastante tiempo.
utilizo el método SpecialCells del objeto Range.
supongamos que el rango para analizar es el siguiente: a1:a10. vos solamente querés borrar todas aquellas celdas que no contengan fórmulas:
Range("a1:a10").SpecialCells(xlCellTypeConstants).Select
Selection.ClearContents
o bien, mas corto aún:
Range("a1:a10").SpecialCells(xlCellTypeConstants).ClearContents

te aclaro que existen muchos y variados parámetros para ingresar en specialcells: celdas en blanco, con formulas, con comentarios, que posean el mismo formato, todas las visibles, etc, etc.
encontrarás una buena guía y explicación de ellas en la ayuda de vba.