You don't need the copy, you can assign the value directly like below

Cells(Target.Row, 4) = Range("j1").value