Sub Test()
Dim iLastrow As Long
Dim i As Long

iLastrow = Cells(Rows.Count, "A").End(xlUp).Row
For i = iLastrow To 2 Step -1
If (i Mod 30) < 0 Then
Cells(i, "A").Resize(, 255).Copy Cells(i - 1, "B")
Cells(i, "A").ClearContents
End If
Next i

Range("A1:A" & iLastrow).SpecialCells(xlCellTypeBlanks).EntireRow .Delete

End Sub


--

HTH

RP
(remove nothere from the email address if mailing direct)


"smash123" wrote in
message ...

Help me to save the WORLD. Save paper

My worksheet contains only one column and it has over 1000 rows. I see
if I print all out I need to use like 23 papers. Can anybody help me
what is the best solution to let say move the data to next column for
every 30 rows.

Following is the example:

1
2
3
4
5
6

how to become

14
25
36

This way can save my printing paper and helping the world.

Thank you in advance!


--
smash123
------------------------------------------------------------------------
smash123's Profile:
http://www.excelforum.com/member.php...o&userid=29974
View this thread: http://www.excelforum.com/showthread...hreadid=496673