ليست المرة الاولى التي اقول فيها ان الجدول في الاكسل يجب ان يكون مستقلاً عن اية بيانات اخرى
يفصله عنها عامود او صف فارغ (
ليس فقط في زمن كورونا بل في كل الاوقات)دون تدخل اي خلايا مدمجة
تم ادراج صف فارغ (الصف رقم 5) مخفي
الكود
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
الملف مرفق