Slet indhold i celler eller ark via VBA

Hej

Jeg skal som en del af an VBA makro starte med at slette alt indhold i et ark. Ikke noget problem jeg koom frem til følgende

Sheets("Ark2").Select
    Range("A1:DV3140").Select
    Selection.ClearContents
    Range("A1").Select
    Sheets("Ark1").Select

og så noget andet videre.

Jeg får fejlen:
"Runtime error '1004'"
"Application  defined or object defined error"

Hvad gør jeg galt?

Mvh
Rasmus