VBA to remove characters and commas

Sub test()
Dim e
With ActiveSheet.UsedRange
    For Each e In [{",","+","#","(",")","$"}]
        .Replace e, "", xlPart
    Next
End With
End Sub

Sub test()
With ActiveSheet.UsedRange
    .Value = Evaluate("if(" & .address & "<>"""",trim(" & .address & "),"""")")
End With
End Sub

Function RemoveChar()

Dim rngColumn As Range   

Set rngColumn = Range("E:E")

     For Each cell In rngColumn
            
            If Trim(cell.Value) = "" Then
                GoTo ForNext
            End If
            
            b = ""
            a = ""
            For I = 1 To Len(cell.Value)
                a = Mid(cell.Value, I, 1)
                If IsNumeric(a) = True Or IsAlpha(a) = True Then
                    b = b & a
                End If
            Next
            
            cell.Value = b
            
ForNext:

    Next
End Function


Private Function IsAlpha(ByVal sChr As String) As Boolean
    IsAlpha = sChr Like "[A-Za-z]"
End Function

Sub test()
With Columns(1)
    For Each r In .SpecialCells(2)
        If Len(r.Value) < 2 Then r.ClearContents
    Next
    .SpecialCells(4).EntireRow.Delete
End With
End Sub

With Columns(1)
    For Each r In .SpecialCells(2)
        If Len(r.Value) < 2 Then r.ClearContents
    Next
    On Error Resume Next
    .SpecialCells(4).EntireRow.Delete
End With