how to delete faster in macro

[kaffal]

hi all, I have a macro to delete away the content of the worksheets

Please Login or Register  to view this content.

this code is only for one sheet, I have repeated this code for all the sheets I have, it takes a long time to run it as I have about 20 worksheets.
Any way to improve the process? does delete of the cells will be faster?
how can i change the code to delete instead of clear the content.

I would like to have a macro to delete the cells from row 2 to the last available row and from column A to Column P. After delete, it will shift the cell up.
any one can help to amend my coding ?

[mdbct]

this should do it:

Please Login or Register  to view this content.