This is a macro. Just copy/paste into a modulechange "a" to suit your
columnSAVE fire from alt f8 or assign to a button/shape.

--
Don Guillett
SalesAid Software

"curiouscat" wrote in message
...
Hi Don,

I am not sure where do I insert the below...is there a simple function
that
I can write up...if not....how do I copy and paste this.

Thank you!

"Don Guillett" wrote:

From a post of mine very recently
Sub addrows()
For i = Cells(Rows.Count, "a").End(xlUp).Row To 2 Step -1
Rows(i).Insert
Next
End Sub


--
Don Guillett
SalesAid Software

"curiouscat" wrote in message
...