السلام عليكم ورحمة الله وبركاته
كيفية وضع هذا الكود في حدث الشيت بحيث يعمل على جميع الصفحات بدلاً من الصفحة (Main) فقط بمجرد وضع البيانات بدلاً من وضع زر لها

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

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
مسلمة.xlsm