Dim cRows As Long
Dim i As Long

cRows = Cells(Rows.Count, "A").End(xlUp).Row
For i = cRows To 2 Step -1
Cells(i, "A").Resize(4, 1).EntireRow.Insert
Next i

--

HTH

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


"samsg" wrote in message
...

Hi, i have a list of values like this:

54
24
31
..

I want to place number 54 and then leave 4 blank spaces, the place
number 24, and 4 blanks, and so on, so it would look like this

54


24


31
..

How can i do this automatically?, the list is too long to insert 4
cells and then press f4 for each value, is there an autofill that can
skip rows , or something that can help me??

Thanks a lot for the help


--
samsg
------------------------------------------------------------------------
samsg's Profile:
http://www.excelforum.com/member.php...o&userid=16245
View this thread: http://www.excelforum.com/showthread...hreadid=276521