Clear contents from all Rows below the last non-empty cell of a column

**Dan3456** · 04-05-2016, 09:08 AM

Hi guys,

I Built a small macro which allows me to autofill a certain formula (in column N) along with a dataset (from column A to M ). The problem is that, since the dataset is refreshing everyday, the number of rows of the dataset day by day is different. In case the data set is longer, the autofill formula will take care of that. In case the data set is shorter compared to the day before, there will be some formulas in excess that I don't want.

How can I cope with this ? I thought to write another macro which allows me to detect the last non-empty cell in column A and clear all the contents in the all the rows below that cell.

That said, could someone help to build this clear-contents macro ?

Thank you very much !!!

**Kaper** · 04-05-2016, 09:28 AM

Try:

sub test()
dim lr&
lr=cells(rows.count,"A").end(xlup).row
Range(cells(lr+1,"A"),cells(rows.count,"F")).clearcontents 'adjust columns to your needs
end sub

not tested (written in forum editor, but shall do the work)

Clear contents from all Rows below the last non-empty cell of a column

LinkBack

Thread Tools

Rate This Thread

Display

Hybrid View

Clear contents from all Rows below the last non-empty cell of a column

Re: Clear contents from all Rows below the last non-empty cell of a column

Thread Information

Users Browsing this Thread

Similar Threads

[SOLVED] Clear contents of specific cells on the same row if a specific cell on that row is empty

Clear the contents on for rows 4 through 500 on every fourth column starting with column E

Delete rows or Clear contents below a specific word is found in Column A

[SOLVED] Clear cell contents of duplicates within column

[SOLVED] Macro to clear cell contents in all but 1 column of specified rows

[SOLVED] VBA code to automatically clear a cells contents when another cell is empty

Clear Contents of every other cell in one column

Tags for this Thread

Bookmarks

Bookmarks

Posting Permissions