Excel VBA - Copy cell values *without* data validation

Solution 1:

It is easy to copy and then remove any DV in the destination:

Sub KopyPaste()
    Dim r1 As Range, r2 As Range
    Set r1 = Range("A1")
    Set r2 = Range("A2")
    r1.Copy r2
    r2.Validation.Delete
End Sub