I have the following code but I need to add the following to it: 

If Not Intersect(Target, Range("X:X")) Is Nothing Then
If Target.Cells.Count = 1 Then ' stops the code looping
If LCase(Target.Value) = "termination n/a" Then
Cells(Target.Row, 17).Value = "001"
' ALSO copy the text in Cells(Target.Row, 13) then Paste it to Cells(Target.Row, 18) and add /001 after the text
Range("X" & Target.Row).ClearContents
End If
End If
End If
Could someone help me?

---------- Post added at 01:12 PM ---------- Previous post was at 01:04 PM ----------

The idea:

If the user selects "termination n/a" from column X:X then it will add 001 to column Q Then will copy the info from column M and paste it in Column R adding /001 to the end of the text.