الاخ رجب
مشكورا على المجهود الرائع
ممكن شرح الكود
بمعنى ماذا تعنى LC = [iV1].End(xlToLeft).Column
وماذا For c = 5 To LC Step 4
وماذا تعنى Cells(1, c).Resize(6, 4).Cut (Cells(r, 1))
r = r + 6
وماذا تعنى
LR = [A1000].End(xlUp).Row
وماذا تعنى
For r = 7 To LR Step 6
Range("A" & r).Resize(6, 4).Cut (Cells(1, c))
c = c + 4