I have a macro to add a separation symbol (@) between English and Arabic languages strings in the same cell and it’s working perfectly but I simply just need at make the sheet save itself automatically everytime I run this macro….
this is my code:

Sub englishATarabic()
    Dim L, count As Long, B, E As Range
    For r = 1 To ActiveSheet.Cells(ActiveSheet.Rows.count, "E").End(xlUp).Row
        Set B = ActiveSheet.Range("B" & r)
        Set E = ActiveSheet.Range("E" & r)
        If E.Value <> "" And B.Value <> "" And IsNumeric(B.Value) Then
            If InStr(E.Text, "@") < 1 Then
                count = 0
                For L = 1 To Len(E.Text)
                    If AscW(Mid(E.Text, L, 1)) < 1000 Then count = count + 1 Else Exit For
                Next
                E.Value = Left(E.Value, count) & "@" & Right(E.Value, Len(E.Value) - count)
            End If
        End If
    Next
End Sub