need codes for copying data with cell validation

[kamranyd]

hi guys
i need a button by which clicking i can copy data from 1 sheet specific cells to another sheet cells and so on. when ever button is click it should copy data to another sheet + data validation with message "that cell is empty insert data"
plz help in write some simple codes so i can modify according to my need

 

[BenGee]

Try;

Sub Button1_Click()

    Range("A1:E1").Copy
    Sheets("Test 2").Range("A1").PasteSpecial Paste:=xlPasteValidation
    
    Application.CutCopyMode = False
    
    MsgBox ("That cell is empty, insert data.")

End Sub