I appreciated your quick response in giving me the above code
I Tested your code but There's a debug during the execution of the code in this line
Note : All data will be deleted before this month and data within a table objectRange("8:" & endRow).SpecialCells(xlCellTypeVisible).Delete
Here's an attachment... Thanks again.




Reply With Quote