I understand this may be a memory intensive code loop, but it worked for me with your sample file

Code:
Sub ClearNonLenCells()

    Dim C As Range
    For Each C In ActiveSheet.UsedRange.SpecialCells(xlCellTypeConstants)
        If Len(C) = 0 Then
            C.ClearContents
        End If
    Next C
    
End Sub