VBA plakken

[slimmen001]

Waarom werkt deze code niet?

Sub samenvatten()

Range("O3:O1003").Copy
Sheets("data samenvatting").Activate
Range("A1:Y1001").ClearContents
Range("A1:A1001").PasteSpecial xlPasteValues

End Sub

 

[Warme bakkertje]

Sheets("data samenvatting").Range("A1:Y1001").ClearContents
    Range("O3:O1003").Copy
    Sheets("data samenvatting").Range("A1").PasteSpecial xlPasteValues
    Application.CutCopyMode = False

 

[snb]

of

Sub samenvatten()
  Sheets("data samenvatting").Range("A1:Y1001").ClearContents
  Sheets("data samenvatting").Range("A1").resize(1000)=Range("O3:O1003").value
End Sub

 

[slimmen001]

Bedankt allebei