Run-time error '13': Type mismatch

The following code is included in the attached Excel workbook:

Please Login or Register  to view this content.

If I tried to delete two or more cells at the same time in the range, I get a
"Run-time error '13': Type mismatch"

Is there a way to avoid this problem? Please see attachment.

Thanks in advance.

Hi, Smonzon
let's add one more line to your code

Please Login or Register  to view this content.

They both work! Thanks a lot nilem and Sixthsense.