VBA Find last row and column that contain data and delete all blank rows and blank columns

I have a workbook that contains 7 tabs. Each tab has a different number of columns and rows filled with Data. For Example:

Tab 1 Contains Range "A1:AB7500"
Tab 2 Contains Range "A1:AK6300"
Tab 3 Contains Range "A1:O5800"

The row number is going to vary ALL THE TIME. I need a macro that does the following:

- Finds the last row that contains data --> Delete all rows below this last row
- Finds the last column that contains data --> Delete all columns to the right of the last column

I need this macro to run through each tab and complete the same task (i.e. Go through each tab and delete all rows below the last row that contains data and delete all columns to the right of the last column that contains data.

Please Help!! Thanks!

It is my understanding that there is a blank row or at least a blank cell to mark the end of data right?

You can't delete (i.e. remove) those unused rows and columns from a sheet - all you can do is to hide them from view.

Hope this helps.

Pete

Thanks jakobshavn,

This appears to be exactly what I am looking for. However, how do I test the macro to ensure it is deleting?

This might render what you seeking...

Place some data in other columns but in a range that you know beforehand has to be deleted. Run the macro. and if it's clean the macro worked! Place the data to right of the range and at the bottom so test both at the same time.

@rcm,

But wouldn't the macro treat that extra data as being within the (new) used range, and only delete the (blank) rows and columns beyond it?

Pete

RCM,

I tried this, however the macro treats this as part of the range and doesn't delete the tested values. So Pete's statement is correct and is the problem I am running into to test jakobshavn's macro.