Sub xx()n = [a1048576].End(3).RowFor i = 5001 To nCells((i - 1) Mod 5000 + 1, Int((i - 1) / 5000) + 1) = Cells(i, 1)NextEnd Sub
