为什么删除工作表导致我的代码停止

I have some code here (Below) I need to clear the data within the WorkSheet "Data Entry" there may be other, quicker, ways to do this, but i went with delete and remake. Please feel free to say if so. I have some code here (Below) I need to clear t