السلام عليكم
أضفت لك الكود الآتي للسابق
Range("E2").Select
ActiveCell.FormulaR1C1 = "=COUNTA(RC[-4]:RC[-2])"
Range(Selection, ActiveCell.SpecialCells(xlLastCell)).Select
Selection.FillDown
Rows("1:1").Select
Selection.AutoFilter
Range("E1").Select
Selection.AutoFilter Field:=5, Criteria1:="0"
Range("E14").Select
Range(Selection, Selection.End(xlDown)).Select
Rows("14:69").Select
Range("E14").Activate
Selection.Delete Shift:=xlUp
Selection.AutoFilter
Range("B2").Select
ActiveWorkbook.Save
جرب المرفق مباشرة وإن شاء الله يكون هو المطلوب
______________________3.rar