Drawback of Copy and Clear code

Hello,

I have requested that please solve this issued if it could be solved.
I have found major drawback (May be I am wrong) in the code of Copy data and Clear Data is that whenever it executed, the ruining VBA Code is stop working.
Is Their any possibility that running code is function properly.

Copy Data Code
Sub CopyData()
Worksheets("311").Range("B11:E510").Value = Worksheets("301").Range("B11:E510").Value

Application.CutCopyMode = False

End Sub

and Other Clear Data Code

Sub ClearData()
'
' ClearData Macro
'
Range("B11:E1000").ClearContents

'
End Sub

Thanks for your care.