How to automatically clear contents of a worksheet without deleting the formulas using VBA. Below is the complete VBA code:

Option Explicit

Sub removeMyConstants()

Dim myConstants As Range
Dim cel As Range

Set myConstants = Sheet1.Range("A1:F4").SpecialCells(xlCellTypeConstants)
On Error Resume Next
myConstants.ClearContents

For Each cel In Range("A1:F4")
If cel.Value = 0 Then

cel.NumberFormat = "#;#;"

End If

Next

End Sub