delete rows using macro

[iscar_marius]

I need to delete all the rows starting with row 2 until the last row with data.
The last row with data will be different all the time.
How can I do this automaticaly by running a macro ?
Please open attached file.
Thank you.

[benatvbacenter]

This little script checks column A and finds the last row. It then deletes all rows between 2 and the last row. If the row could be greater than 65,000, then it will need to be modified where you see "Range("A65000"). You can also change the "A" in that statement to check another column for the last row in the table.


Function deleteRowsAfter2()

Dim lastRowInColumnA As Long


lastRowInColumnA = Sheets("Sheet1").Range("A65000").End(xlUp).Row

Rows("2:" & lastRowInColumnA).Rows.Delete


End Function

[iscar_marius]

Thanks for your answer. I need something like this, but to find the last row from all the columns. I don't know exactly if the last row will be in column A,B,C etc.

[iscar_marius]

I found the solution:

Please Login or Register  to view this content.

[Paul]

Hi Iscar,

This should help you out. It finds the last used cell in the worksheet (Sheet1 in this example), and deletes every row from row 2 to that found row.

Please Login or Register  to view this content.

[iscar_marius]

Hi Iscar,

This should help you out. It finds the last used cell in the worksheet (Sheet1 in this example), and deletes every row from row 2 to that found row.

Please Login or Register  to view this content.

Thank you, looks good

[iscar_marius]

Please help ...

Please Login or Register  to view this content.

This code does almost everything I need, but if I have values only in row 1, the macro will delete row 1. If I have no value in my worksheet the macro will give me erros code.
I need row 1 to be intact all the time, I need my code to delete all the rows starting with row 2 to the bottom.

[JBeaucaire]

Maybe this:

Please Login or Register  to view this content.