بعد اذنكم
صلح في ملف
-------------------------------------------------------------------------------------------------------------------------------------------------------------
و بعد استعماله في ملف اخر عدد الاعدة 15 وعدد الصفوف اكثر من 500 صف لم يستجب
وقع الخطأ هنا
.Range("$a$1:$e$1").AutoFilter Field:=1, Criteria1:=ww
ll = .Range("a10000").End(xlUp).Row + 1
.Range("$a$1:$e$1").AutoFilter
.Range(Cells(ll - 1, "a"), Cells(ll - 1, "a")).Select
Selection.EntireRow.Delete
وجزاكم الله خيرا