Sub tahweel()

Application.ScreenUpdating = False

Dim my_rg

Dim i%

Dim my_st: my_st = Chr(201)

Set my_rg = Sheets("Main").Range(Range("b2"), Range("b2").End(4))

    

 For i = 1 To my_rg.Rows.Count

    With my_rg.Cells(i)

        If .Value = "انثى" Then

           .Offset(, 1).Value = IIf(my_rg.Cells(i).Offset(, 1) = "مسيحى", "مسيحي", my_rg.Cells(i).Offset(, 1)) & my_st

         Else

          .Offset(, 1).Value = IIf(my_rg.Cells(i).Offset(, 1) = "مسيحى", "مسيحي", my_rg.Cells(i).Offset(, 1))

        End If

     End With

 Next

 Application.ScreenUpdating = True

    End Sub