السلام عليكم
اخواني الكرام اعذروني على قلة المشاركات
==============
اخي السائل (انس دروبي)
اليك هذا الكود
Sub Abu_AhmedDEL()
Dim cl As Range
For Each cl In [A2:A16]
If cl = [O1] And cl.Offset(0, 5) = [Q1] Then cl.Resize(1, 10).Delete Shift:=xlUp: Exit For
Next
End Sub