Delete method of Range class failed (again)

When I run the following code, I get a Run-time Error '1004': Delete method of Range class failed. If there is nothing in column D, then the if statement is not satisfied and the macro runs fine and doesn't do anything.
Changing the Delete line to 'Rows(i).Delete Shift=x1Up' works just fine, but I would prefer to just delete the selected range.
Here is the entire macro:

Please Login or Register  to view this content.

This is my first post, so I hope it is done correctly.
Thanks!

Hi Kelden, you have to delete the entire row. Replace

Please Login or Register  to view this content.

with

Please Login or Register  to view this content.

It's not X1UP but XLUP.

Hi Kelden,

You might also want to take a closer look at

Please Login or Register  to view this content.

That should be a xlUp not a 1

Mordred,
You do not have to delete entire rows, you can delete cells just as you do in the UI.

Good eyes guys! I didn't even notice that, I just typed in what I did and it worked, even with the x1Up. Quirky.

@romperstomper, how then would you know when to use EntireRow or not?

If you delete the entire row, there's no way to go but up, so it gets ignored.

It's up to you whether you want the whole row deleted or not. If you just want to take a few cells out of a table, you may just want to delete the cells so as not to disturb other columns on the sheet.

In that case, wouldn't

Please Login or Register  to view this content.

be more appropriate? I feel like I am spamming this thread!

Only if you want empty cells in the middle of your table. If you delete the cells, then the cells below (or to the right of) them in the same columns (or rows) shift up (or left) to fill in the spaces. If you clearcontents, then nothing moves.