Hey guys.

What's the best method to shorten this macro?

Thanks in advance.

 Sheets("Data U. Reruns").Select
    Range("Q14:V43").Select
    Selection.ClearContents
    Sheets("DataArk + Noter").Select
    Range("Q14:V43").Select
    Selection.Copy
    Sheets("Data U. Reruns").Select
    Range("Q14:V43").Select
    ActiveSheet.Paste