Ayuda en macro..

Estimados.-
Tengo este macro que cumple funcion de busqueda y copiado:
Que sucede en la actualidad el valor buscado puede
repetirse (Item) necesito que indique como mensaje lo
siguiente al momento de repetirse un valor a Buscar.
¡Este Item ya existe! y de la opcion de decidir cual es el
que debo tomar Me explico??

Ejemplo 5-1-3-4 = Guantes Verdes y a su vez = Guantes Rojos
Seleccione cual es el buscado

A continuacion el macro;
Private Sub Worksheet_Change(ByVal Target As Range)
Application.ScreenUpdating = False
If Target.Address = "$C$4" Then Encontrar_Dato
If Target.Address = "$C$14" Then Trasladar_Dato
End Sub
Private Sub Encontrar_Dato(): Dim Fila As Long
If IsEmpty([c4]) Then Exit Sub
Fila = Evaluate("If(IsError(Match(c4,Hoja1!
A:A,0)),0,Match(C4,Hoja1!A:A,0))")
If Fila > 0 Then
Application.EnableEvents = False
With [Hoja1].Range("a" & Fila & ":k" & Fila)
.Copy
[c4].PasteSpecial xlPasteValues, , , True
.EntireRow.Delete
End With: Application.EnableEvents = True: [c14].Select
Else: MsgBox "El dato solicitado: " & [c4] & vbCr & "NO
se encuentra en Hoja2..."
End If
End Sub
Private Sub Trasladar_Dato()
[c4:c14].Copy
[Hoja3!a65536].End(xlUp).Offset(1).PasteSpecial
xlPasteValues, , , True
[c4:c14].ClearContents
[c4].ClearContents
[c4].Select
End Sub

Pd.este macro fue facilitado en este foro por el Amigo
Hector Miguel.