Macro "IF" to insert a row.

[hutch@edge.net]

Just had a thought. I need to add a line of code to check to see if there is a blank row after row 4, (between rows 4 and 6 I need a blank), and insert one of there isn't.

By the way, I know I've been full of questions. If you feel I'm abusing the forum. let me know.

Later,

Jerry.

[Paul]

Hutch, thanks for asking questions -- that's why we're here!! We always appreciate if users have taken the time to look for answers themselves first, but we enjoy helping others so that's what I'll do..

This macro may suit you. It quicky checks through each cell in row 5, and if it finds any that aren't blank it inserts a new row 5 and shifts everything else down 1 row.

Please Login or Register  to view this content.

If you need it to actually delete the row instead of inserting one, that can be done, too.

Hope that helps!

[hutch@edge.net]

Thanks, Paul. I've still got a small problem. When I run your code on a sheet in which row 5 is blank, it runs great, but when there is data in row 5, it inserts the new row, as needed, but then it stops the macro.

If row 5 is blank, I just want it to run the rest of the macro. If not, I want to insert a blank row after row 4, and then continue to run the macro.

Thanks for any help you can offer.

Here's the first part of the code:

Please Login or Register  to view this content.

[Paul]

Try changing "Exit Sub" to "Exit For"

[hutch@edge.net]

That fixed 'er right up, Paul. Thanks again for the help.

Hutch.

[royUK]

by using COUNTA

Please Login or Register  to view this content.

[hutch@edge.net]

That works just as well, Roy. I notice there are always bunches of different ways to do things in VBA, unfortunatley, I don't know any of them.

Thanks again for all your help, guys.

[royUK]

You will learn, just stick around.

I think it's best to avoid loops for faster code.