خطأ في كود الترحيل

Option Explicit



Sub transfer_data()

Dim Main As Worksheet

Dim m_rg As Range

Dim Arr(), itm

Set Main = Sheets("الرئيسية")

Arr = Array("مقبول", "مستبعد")

Set m_rg = Main.Range("a6").CurrentRegion

If Main.AutoFilterMode Then m_rg.AutoFilter

 For Each itm In Arr

  Sheets(itm).Range("A4:M100").Clear

  With m_rg

   .AutoFilter 13, itm

   .SpecialCells(12).Copy _

    Sheets(itm).Range("A4")

  End With

  Next

If Main.AutoFilterMode Then m_rg.AutoFilter

     

End Sub

Option Explicit



Sub transfer_data()

Dim Main As Worksheet

Dim m_rg As Range

Dim Arr(), itm

Set Main = Sheets("الرئيسية")

Arr = Array("مقبول", "مستبعد")

Set m_rg = Main.Range("a6").CurrentRegion

If Main.AutoFilterMode Then m_rg.AutoFilter

 For Each itm In Arr

  Sheets(itm).Range("A4:M1000").Clear

  With m_rg

   .AutoFilter 13, itm

   .SpecialCells(12).Copy



   Sheets(itm).Range("A4").PasteSpecial (8)

   Sheets(itm).Range("A4").PasteSpecial (14)

   Sheets(itm).Range("A4").PasteSpecial (12)

  End With

  Next

If Main.AutoFilterMode Then m_rg.AutoFilter

     End Sub