Evitar datos repetidos de un listbox al momento de agregar datos

Tengo un problema con un listbox

Espero me puedan orientar le agradezco

Miren tengo un listbox 1 que carga datos de una hoja de excel

de aproximadamente 7 columnas...

Bueno de ahi en el listbox1 por medio de un doble clic al estar posicionado en algun valor yo le he dicho que me mande especificamente unos datos a otro listbox3

Anexo el codigo:

If Me.ComboBox1.Value = "Salida" Or Me.ComboBox1.Value = "Traspasos" Then
 cantidad = InputBox("Coloca la cantidad indicada ", "Cantidad de: " & ListBox1.List(fila, 1))
 If IsNumeric(cantidad) Then
 If Val(cantidad) >= 0 Then
     Application.ScreenUpdating = False
     Set h = Sheets(Hoja1.Name)
fila = Me.ListBox1.ListIndex
MsgBox cantidad & "   " & ListBox3.List(fila, 6)
If Val(cantidad) > ListBox3.List(fila, 6) Then
MsgBox "la cantidad excede el disponible"
Exit Sub
End If
' AQUI TENGO EL ERROR
fila = Me.ListBox1.ListIndex
If ListBox2.List(ListBox2.ListCount - 1, 4) = ListBox1.List(fila, 1) Then
MsgBox "este producto ya existe"
Exit Sub
End If
' AQUI TENGO EL ERROR
ListBox2.ColumnCount = 10
ListBox3.ColumnCount = 10
If Me.ComboBox3.Value = Empty Then
MsgBox "No tiene destino"
Exit Sub
End If
If ListBox1.List(fila, 3) = 0 Then
MsgBox "No tiene precio unitario para proceder"
Exit Sub
End If
ListBox2. AddItem ListBox1. List(fila, 0) ' Clave
ListBox2. List(ListBox2.ListCount - 1, 1) = Me. Label5. Caption 'FECHA
ListBox2. List(ListBox2.ListCount - 1, 2) = "Bodega" 'Me. ComboBox2.Value ' EMISOR
ListBox2. List(ListBox2.ListCount - 1, 3) = Me. ComboBox1.Value ' CONCEPTO
ListBox2. List(ListBox2.ListCount - 1, 4) = ListBox1. List(fila, 1) 'PRODUCTO
ListBox2.List(ListBox2.ListCount - 1, 5) = cantidad 'CANTIDAD
ListBox2.List(ListBox2.ListCount - 1, 6) = ListBox1.List(fila, 3) 'P/U
ListBox2.List(ListBox2.ListCount - 1, 7) = cantidad * ListBox1.List(fila, 3) 'MONTO TOTAL
ListBox2.List(ListBox2.ListCount - 1, 8) = Me.ComboBox3.Value 'RECEPTOR
Else
MsgBox "Número menor a 0", vbExclamation + vbOKOnly, "Atención"
GoTo X
End If
End If
End If

Bueno hice un codigo que si funcionaba, pero al cabo de unos clic en varios lugares este se pierde y deja de funcionar..
LO unico que necesito es que este no me deje agregar un dato del listbox1 al listbox3 siempre y cuando un dato este repetido.. Algo como esto (pero no me funciona) :C

fila = Me.ListBox1.ListIndex
If ListBox2.List(ListBox2.ListCount - 1, 4) = ListBox1.List(fila, 1) Then
MsgBox "este producto ya existe"
Exit Sub
End If