If Target.Column = 1 Then
If Len(Cells(Target.Row, "I")) = 0 Then
Range(Cells(Target.Row - 1, "I"), Cells(Target.Row - 1, "J")).Copy
Cells(Target.Row, "I").Select
ActiveSheet.Paste
Application.CutCopyMode = False
End If
End If