ActiveX

To delete only the data in a cell or block of cells

Call the ClearRange method and set the DataOnly parameter to TRUE.