Here is the modified code - I get the following eror Run Time Error 1004: Application or Object-Defined Error
Use my code as is .
There is no need to find last row anymore .
You just choose a sheet and reference column and your done .
note reference sheet differs e.g ThisWorkbook.Sheets("Sheet1"), activeSheet, activeWorkBook.sheets("SheetABC") ... etc
Try this exact code , as is, on "Sheet1" like you uploaded to us.
all you configure is in bold Call deleteRowsByBlankColumn(ThisWorkbook.Sheets("Sheet1"), "J")
SO ... In your code , if you have many places you want to delete rows , the only thing you would include is " Call deleteRowsByBlankColumn(ThisWorkbook.Sheets("Sheet1"), "J")" .... and of course include the procedure it call in one of your modules
Bookmarks