Ayuda con Macro

[JULIO1459]

Tengo un pequeño problema con un macro para salvar información desde una hoja (Insert) a otra hoja (Stock). Pues cuando corremos el macro con nueva información para ser salvada con el mismo código, pues este me duplica el código y la nueva información.
Si alguien me puede ayudar se lo agradecería, pues adjunto podrás entender mejor mi problema.


Insert Item


Code A103
Description
Cost
Price
Quantity
Date



Esta hoja anterior (Insert Item) es la que usamos para entrar la información que luego se salvará en (Stock). Suponiendo que ordenamos de nuevo el mismo código, pues no quiero que se duplique el código, pero sí cualquiera de la otra información.
Más abajo podrás ver la hoja (Stock) y podrás notar la duplicación de código en diferente fecha.


Code Description Cost Price Quantity Date
A100 Apple $15.00 $25.00 15 1-Dec-10
A100 Apple $12.00 $20.00 20 15-Dec-10
A101 Banana $10.00 $25.00 10 1-Dec-10
A101 Banana $10.00 $25.00 25 15-Dec-10
A101 Banana $10.00 $25.00 25 12-Jan-11
A102 Grape $20.00 $45.00 15 12-Jan-11
A102 Grape $20.00 $45.00 10 2-Dec-10
A103 Peach $10.00 $25.00 25 5-Dec-10

Anexo, encontrarás el macro que usamos para salvar esta información. Cualquier corrección o modificación se lo agradecería.


Sub Insert_Item()
'
' Insert_Item Macro
'

'
Sheets("Insert").Select
Sheets("Stock").Visible = True
Sheets("Stock").Select
Range("B5").Select
Selection.ListObject.ListRows.Add (1)
Sheets("Insert").Select
Range("D7:D12").Select
Selection.Copy
Sheets("Stock").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=True
ActiveWorkbook.Worksheets("Stock").ListObjects("Ta ble1").Sort.SortFields.Clear
ActiveWorkbook.Worksheets("Stock").ListObjects("Ta ble1").Sort.SortFields.Add _
Key:=Range("Table1[[#All],[Code]]"), SortOn:=xlSortOnValues, Order:= _
xlAscending, DataOption:=xlSortNormal
With ActiveWorkbook.Worksheets("Stock").ListObjects("Ta ble1").Sort
.Header = xlYes
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With
Sheets("Stock").Select
ActiveWindow.SelectedSheets.Visible = False
Sheets("Insert").Select
Application.CutCopyMode = False
Range("D8:D12").Select
Selection.ClearContents
Range("D7").Select
End Sub