Hi Bernard

Try something like this

With Workbooks("Book1").Worksheets("Matter Arrising").Cells(2, 1)
If Workbooks("Book1").Worksheets("ValidationLists").C ells(2, 1) = ""
Then
ActiveCell.Offset(0, 4).Copy
Destination:=Workbooks("Book1").Worksheets("Matter
Arrising").Range("A2")
Else
MsgBox ("The paste cell is not empty")
End If
End With

This is checking the paste cell if it is empty and then copying the
value
You have to change the Workbook name.

Cheers
Christian