Macro using end(xlDown) and End(xlToRight))

[rlkerr]

I have a macro that I found and I need to make some changes. However, I'm not that familiar with VBA so I need some help.


What I need it to do is select range A1 end right and range end down. Maybe like this : "If Range("A1", Range("A1").End(xlDown).End(xlToRight)).Select
I don't know how to put it in the code below.

Goal is to take all the 0 and blank cells and clear them.

Please Login or Register  to view this content.

[bakerman2]

How about this.

Please Login or Register  to view this content.

[rlkerr]

How do I incorporate it into my Macro. I need a Dim statement or something? Can you put it in the statement for me?

[jolivanes]

No selecting needed.
You indicate to clear, not delete, cells with a zero (0). I don't think you have to worry about clearing blank cells.

One possibility:
This will replace all zeros on the whole sheet.

Please Login or Register  to view this content.

If you want to delete cells, maybe up or left, that would be a different story


This will delete the Cells with a Zero (0) and shift up.

Please Login or Register  to view this content.

This will delete the Zeros and shift blank Cells up.

Please Login or Register  to view this content.

[rlkerr]

Still not quite there. It maybe simpler to just delete all lines below the last line. I have attached an example. I just need all the blank lines below the data to be deleted.

[rlkerr]

I posted an example spreadsheet.

[bakerman2]

Try this.

Please Login or Register  to view this content.