preventing adding suffix (.1) to instance name after CUT and PAST in Catia vb script

Question

I am preforming task that reordering the Catia tree using instance name. Script executing well without errors. I used cut and paste method in the script to achieve task.

selection1.Cut
Set selection2 = CATIA.ActiveDocument.Selection
selection2.Add product1
selection2.Paste
selection1.Clear
selection2.Clear

my problem is after pasting .1,.2 suffix are adding to pasted elements. ex: before cut instance name was (XMA1_2). After pasting instance name will be (XMA1_2.1)

added suffix to instance name will be big problem form me. if any suggestions would be appreciated.