Hi, it can be done smarter than this, but run this in a standard module,
dont forget to change any reference to "A" to your actual column.

Code:
--------------------
Sub insertcells()
Dim i As Long, ic As Long
i = Range("A" & Rows.Count).End(xlUp).Row
For ic = i To 2 Step -1
With Cells(ic, "A")
.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
End With
Next ic
End Sub

--------------------



Rajat Soni;420326 Wrote:
hello all
I have a column full of data now I want to insert two blank cells in
my column below each cell so that I have two blank cells below every
filled data, please tell me a shortcut as the data is very big and
inserting manually is very tedious.


--
Simon Lloyd

Regards,
Simon Lloyd
'The Code Cage' (http://www.thecodecage.com)
------------------------------------------------------------------------
Simon Lloyd's Profile: http://www.thecodecage.com/forumz/member.php?userid=1
View this thread: http://www.thecodecage.com/forumz/sh...d.php?t=116964