Option Explicit

Public Sub Чистилище(Optional ByVal msg As Variant)
    Ячейки_Очистить "Числа", ActiveSheet.UsedRange
End Sub

Public Function Ячейки_Очистить(ByVal str As String, _
                    rng As Range) _
                    As Variant
    Dim eL As Range
    For Each eL In rng
        If str = "Числа" Then Ячейку_Число_Очистить eL
        ' If str = "Дата" Then Ячейку_Дата_Очистить eL
    Next
End Function

Public Function Ячейку_Число_Очистить(eL As Range) As Variant
    With eL
        If .MergeCells = False Then _
           If Left$(eL.Value, 1) <> "=" Then _
           If IsNumeric(.Value) Then .ClearContents
    End With
End Function

Public Function Ячейку_Дата_Очистить(eL As Range) As Variant
    With eL
    ' Ваш код
    End With
End Function

Sub app0()
    With Application: .ScreenUpdating = 0: .Calculation = 3: End With
End Sub
Sub app1()
    With Application: .ScreenUpdating = 1: .Calculation = 1: End With
End Sub
Sub mChisla()
    app0
    Set d0_ = Cells(1).SpecialCells(xlCellTypeConstants, 1)
    For Each d_ In d0_
        If IsNumeric(d_) Then d_.MergeArea.ClearContents
    Next d_
    Application.Calculation = xlCalculationAutomatic
    app1
End Sub
Sub mText()
    app0
    Set d0_ = Cells(1).SpecialCells(xlCellTypeConstants, 2)
    For Each d_ In d0_
        If d_.NumberFormat = "@" Then d_.MergeArea.ClearContents
    Next d_
    Application.Calculation = xlCalculationAutomatic
    app1
End Sub
Sub mForm()
    app0
    Set d0_ = Cells(1).SpecialCells(xlCellTypeFormulas, 23)
    For Each d_ In d0_
        If d_.NumberFormat = "General" Then 'думаю, что это не нужно
            If d_.HasFormula Then d_.MergeArea.ClearContents
        End If
    Next d_
    Application.Calculation = xlCalculationAutomatic
    app1
End Sub
Sub mDat()
    app0
    Set d0_ = Cells(1).SpecialCells(xlCellTypeConstants, 1)
    For Each d_ In d0_
        If IsDate(d_) Then d_.MergeArea.ClearContents
    Next d_
    Application.Calculation = xlCalculationAutomatic
    app1
End Sub
Sub mOb()
    app0
    Set d0_ = Cells(1).SpecialCells(xlCellTypeConstants, 2)
    For Each d_ In d0_
        If d_.NumberFormat = "General" Then d_.MergeArea.ClearContents
    Next d_
    Application.Calculation = xlCalculationAutomatic
    app1
End Sub