Unless you are trying to reset the validation to 0 or empty in the newly copied validation cells.....?

[vba]
Rows("41:41").Select
Selection.Copy
Range("A43").Select
ActiveSheet.Paste
Rows("43:43").Select
Selection.ClearContents
Range("A39").Select
[/vba]