جزاكم الله خيراااااااااااااااا
بارك الله فيك
ارجو شرح هذا الكود
Sub nn()
LR = [A99999].End(xlUp).Row
Sheet1.[b2:C7002].ClearContents
For r = 2 To LR
rw1 = Cells(r, 7) / 5 + 2
rw2 = Cells(r, 8) / 5 + 1
Sheet1.Range("B" & rw1 & ":B" & rw2) = Cells(r, 6)
Sheet1.Range("C" & rw1 & ":C" & rw2) = Cells(r, 2)
Next