try
Sub insertifnotblank()
For i = Cells(Rows.Count, "a").End(xlUp).Row To 2 Step -1
If Len(Cells(i, "a")) 1 Then Rows(i).Insert
Next i
End Sub

--
Don Guillett
SalesAid Software

"Bevy" wrote in message
oups.com...
Hi there, I have a column mostly consisting of blank cells. What I
need is some vba that finds any populated cells and then inserts a new
row above it. Is the best way to do this by using ISTEXT, or NOT
(ISBLANK). I'm sure the answer is very simple, but not for me! Any
advice would be really appreciated. Thank u, BJ