السلام عليكم ورحمة الله وبركاته 
اردت فقط شرح الكود التالي  وهو كود اعطاني اياه الاستاذ رجب 
  
 
 
Sub rajab()								   
Dim ws As Worksheet													   
Dim cl As Range
Range("B3:H50").ClearContents
For Each ws In ThisWorkbook.Worksheets
For Each cl In ws.[F3:F136]
If cl = [O13] And cl.Offset(0, 3).Value = [P13].Value or (If cl = [P13] And cl.Offset(0, 3) = [O13]) Then
cl.Offset(0, -3).Resize(1, 7).Copy
Range("B" & [E1000].End(xlUp).Row + 1).PasteSpecial xlPasteValues
End If
Next
Next
Application.CutCopyMode = False
[A9].Select
End Sub
 
 
السؤال الثاني  هل يجب ان تكون كل الجداول في جميع الشيتات تحتوي على نفس عدد الصفوف