Delete a large number of rows and columns

[abktw2]

I recently joined a new team at work who uses a spreadsheet to track savings. It is shared between multiple users. The problem is that for some reason, at some point, someone decided to copy the formatting all the way down to row 65536 and row IV. If you try to manually delete say 1000 blank rows it will run and result in the same situation. The SS is not currently locked as well. Since it is shared I cannot make a macro directly in it. I thought to get around this I would create one in another open workbook. I need it to delete all rows below 1313 and all columns right of BJ. Any help would be appreciated as I am currently trying to teach myself VBA from a book but it is a slow process for sure.

Adam

 

[MrKowz]

Range("A1314:A65536").EntireRow.Delete

Range("BK:IV").EntireColumn.Delete

You do not have to make a macro to do this, just type these codes in the Immediate window of the VBA editor.

 

[abktw2]

Thanks for the help. The only problem with this is that the whole ss locks (task manager says its running) so I am assuming its stuck in a loop of trying to replace the deleted rows.

 

[MrKowz]

Ok... try this one.

Range("A1314:IV65536").Delete

Then

Range("BK1:IV1314").Delete