clear cell contents if not a formula

Here i am again..
is there any way to clear cells content only if it doesn't contain a formula?
In other words, since I need to blamk a range in a sheet, I want also be sure that if there is a cell in the range that contains a formula, it is not blanked out...

thanks
*pimar

You can do it easily with VBA (macro).

For instance:
myRange = "a1:e50"
for each myCell in range(myRange)
if not myCell.hasformula then
myCell.clearcontents
end if
next

Regards,
Antonio

Thank you Antonio...
based on your input, what is wrong in the following :

Set dataarange = Range("Area_Data")

/*upperlimt and i have been already initialized
For Each mycell In dataarange.Rows(upperlimit + i)
MsgBox (mycell.HasFormula)
If Not mycell.HasFormula Then
mycell.ClearContents
End If
Next

since I get an error in the MsgBox instruction , as the "mycell" is bad
thanks
*pimar