VBA code to remove rows in case of blank cells

**GrahamRoss** · 10-31-2011, 10:57 AM

Hello I am trying to get the VBA code to delete a row if there is no data in a cell in that row. for example if D5 is blank delete row 5.

I can get the Code to do this function row by row but I dont want to write it out 5000 times. Is there a formula to say repete function between rows 18-5000

**Paul** · 10-31-2011, 11:09 AM

Hi GrahamRoss, this one liner should do it (for the full column). If you want to do it for specific rows, just change D:D to something like D18:D5000.

Please Login or Register  to view this content.

Hope that helps!

**GrahamRoss** · 11-01-2011, 06:10 AM

Can I add that to the botom of another sub routine it seems to just do the first one and then stop and not go onto delete the rows

**Paul** · 11-01-2011, 12:02 PM

You can certainly add it to the bottom of the first macro, or put it in a standard module and call it from the first macro. (e.g. "Call delrows")

If the first macro is an event macro (Worksheet_Change, etc.) you may want to disable events at the beginning of the macro and then re-enable at the end so your change event isn't re-triggered.