Remove English language text in excel and retain foreign language.

How to remove English language from an excel sheet having two different languages.
This code worked for me to remove foreign language

Sub x()

Dim rng As Range

With CreateObject("vbscript.regexp")
    .Global = True
    .Pattern = "[^\d^\w^\s-\.\,]"
    For Each rng In Range("A1").CurrentRegion
        rng = .Replace(rng, "")
    Next rng
End With

End Sub

but how to remove English language and keep the foreign text.I don't have any idea about VBA. I just started now and found this code in some thread.Thanks in advance.