----------
---
If Target.Column = 10 And Target.Row > 1 Then
If Target.Value <> "" Then
Target.Offset(0, -4).Copy
Target.Offset(0, -3).PasteSpecial Paste:=xlValues
Target.Offset(0, 4).Copy
Target.Offset(0, 5).PasteSpecial Paste:=xlValues
End If
End If
'-----------
'---------