Better way to code this code snippet (copy paste)
Let me give you the following answer/advise:
As far as your first piece of code is concerned, this can be re-written as:
Sheets(&quot;DataExport&quot;).Range(&quot;A1&quot;).CurrentRegion.ClearContents

As far as the second piece of code is concerned (about the copying), I'd like to refer you to this very complete answer. (I might give you the answer but I believe you'd better try to create it, based on this URL. If you have any issues, please edit your question, we'll have another look).