removeNonNumeric.vba

Function AlphaNumericOnly(strSource As String) As String
    Dim i As Integer
    Dim strResult As String

    For i = 1 To Len(strSource)
        Select Case Asc(Mid(strSource, i, 1))
            Case 32, 48 To 57: 'include 32 if you want to include space
                strResult = strResult & Mid(strSource, i, 1)
        End Select
    Next
    AlphaNumericOnly = Strings.Trim(strResult)
End Function

Sub CleanAll()
    Dim rng As Range

    For Each rng In Sheets("CustomersWithNoPhoneinAddressRe").Range("C2:E5000").Cells 'adjust sheetname and range accordingly
        rng.Value = AlphaNumericOnly(rng.Value)
    Next
End Sub