Deleting Rows after Last Record using VBA

Hello, I am running Excel 2003 on Windows XP. I am hoping someone will be kind enough to assist me in the following VBA problem I have:

I need a VBA macro to delete all subsequent rows (to the end of the worksheet) in worksheet named Sheet1 after the last record in column A.

Please refer to attached workbook. The last record in column A is located at row 3253. I need to delete all rows after this last record to the end of the worksheet.

Any help is greatly appreciated.

Kind regards,

Chris.

Hi, Chris,

deleting rows will just fill in fresh ones:

Please Login or Register  to view this content.

Maybe you want them hidden:

Please Login or Register  to view this content.

Ciao,
Holger

If your Data is continuous without any blank rows then try the below code

Please Login or Register  to view this content.

If your Data is having blank rows then change the

Please Login or Register  to view this content.

To

Please Login or Register  to view this content.

Hope this helps!