Basic Macro language: Remove spaces, filter on criteria

Hello,

As a VBA beginner, I'm still trying to get a feel for how to write macros.

A common issue I have is the need to delete entire rows that contain either blanks or certain text within them, and then shift up to cover the deleted row. Another thing I'd like to learn how to do is how to insert a row below a given row if a certain cell contains specific text.

I've attached an example workbook to illustrate what I'd like to do. Column A contains company number, B contains the type of company, C contains company name, and D contains a value for the company. How can I create a macro to:

1). Delete rows where no name is provided and shift up
2). Insert a row between two rows if the "Type" field is different - (e.g. insert a row between row 4 and 5, or 16 and 17, which have different value for Type).

Thanks to all for the help, and for taking the time to read my question.

-Student1990



FilterRows_Example.xlsx

ONLY the first one-No loop, but with second one, you need to loop through the rows.

Please Login or Register  to view this content.

Thank you AB33. So .SpecialCells(4) - does that mean a blank cell?

Yes, it is

Please Login or Register  to view this content.

Thanks all. Between these two solutions, I'm starting to see how to filter on certain criteria. Thank you both!

Sample2_InsertRows.xlsxI'm curious now how to insert rows based on the presence of certain text, other than just a blank space. In the attached workbook, I want to know how to remove rows with a space in column N - then as a second step, insert a row if a value in column C differs from the value in the row immediately below it. I can't figure out the proper way to loop through and check each row in column C. Can you guys help me out? Thanks again.

Try the attached.
To speed up the execution of the code, I first deleted the empty cells and then loop through the rows to insert rows.
If you do not have empty cells, you may get an error on the first part of the code.

That did the trick - thank you again, AB33.