أخى الكريم لم أجرب الكود كما ينبغى ولم أدقق فى النتائج معذرة
Option Explicit
Sub FilterDataCopyTo()
Dim WS As Worksheet
Dim myDate As Date
Set WS = Sheets("ادخال بيانات")
Application.ScreenUpdating = False
Application.DisplayAlerts = False
With WS
.AutoFilterMode = False
.Range("A7:S7").AutoFilter Field:=12, Criteria1:="=محول إلى المدرسة", Operator:=xlOr, Criteria2:="="
.UsedRange.Offset(8).SpecialCells(xlCellTypeVisible).Copy
End With
Sheets("السجل").Activate
Range("A8").Select
Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
Sheets("ادخال بيانات").Select
Selection.AutoFilter
Application.CutCopyMode = False
Application.ScreenUpdating = True
Application.DisplayAlerts = True
MsgBox ("المهمة انتهت بنجاج")
End Sub
تحياتى