EXCELer.org

Se pretendermos limpar o conteúdo de algumas células com valores sem ter que as identificar num determinado Range (por exemplo A1:J50), o qual também contém células com fórmulas e que não queremos nem podemos apagar, podemos utilizar o seguinte código:

 Sub Teste ()

       Range("A1:J50").SpecialCells(xlCellTypeConstants, 23). ClearContents

End Sub

Para se ver mais sobre o Método SpecialCells, pode aceder-se a: 

http://www.ozgrid.com/VBA/special-cells.htm

e a:

http://dmcritchie.mvps.org/excel/proper.htm