Insert blank row above populated cell

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

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
[email protected]
"Bevy" <[email protected]> wrote in message
news:[email protected]...
> 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
>

Thanks again Don,

I have just demonstrated to you the extent of my ignorance! I am going
to demand that I go on a course, or that they buy me a very good book!



Don Guillett wrote:
> 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
> [email protected]
> "Bevy" <[email protected]> wrote in message
> news:[email protected]...
> > 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
> >

Or what was my suggestion a couple of days ago

--
Don Guillett
SalesAid Software
[email protected]
"Bevy" <[email protected]> wrote in message
news:[email protected]...
> Thanks again Don,
>
> I have just demonstrated to you the extent of my ignorance! I am going
> to demand that I go on a course, or that they buy me a very good book!
>
>
>
> Don Guillett wrote:
>> 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
>> [email protected]
>> "Bevy" <[email protected]> wrote in message
>> news:[email protected]...
>> > 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
>> >
>