how to split English and Arabic character?

Try this:-
Results separated into columns "A"and "B"

Sub MG22Aug59
Dim Rng As Range, Dn As Range, Sp As Variant, S1 As String, S2 As String, n As Long, t
Set Rng = Range(Range("A1"), Range("A" & Rows.Count).End(xlUp))
For Each Dn In Rng
Sp = Split(Dn.Value)
S1 = "": S2 = ""
For n = 0 To UBound(Sp)
    If Mid(Sp(n), 1, 1) Like "[A-Za-z]" Then
        S1 = S1 & " " & Sp(n)
    Else
        S2 = S2 & " " & Sp(n)
    End If
Next n
Dn.Value = S1
Dn.Offset(, 1) = S2
Next Dn
End Sub

Regards Mick