Macro que me guarde y me reemplace si el dato se repite

Buenas

Agradezco su colaboración

Tengo una macro - frame con dos textbox y un botón

textbox1-lista

textbox2-lote

resulta que el botón me realiza este evento

'código cambiar nombre hoja , copiar y pegar
Sheets("Reporte").Select
Sheets("Reporte").Copy
Range("D7").Select
nombre = (ActiveCell.FormulaR1C1)
Sheets("Reporte").Range("A1:S45").Select
Selection.Copy
Worksheets.Add(After:=Worksheets("Reporte")).Name = Range("C16").Value
ActiveSheet.Paste
Sheets("Reporte").Name = nombre
Sheets(nombre).cells.Copy
Range("A1").Select
Selection.PasteSpecial Paste:=xlPasteFormats

Me crea un nuevo libro con el valor de la lista agregada en el frame y me copia ese mismo en la hoja siguiente con el valor del lote agregado.

necesito que cuando haga un ingreso de nuevo si el numero de la lista esta repetido pero con otro valor del lote no me lo reemplace y me siga guardando por lotes..

es decir

LISTA : 147

LOTE 895-6

LOTE471-5

ETCCC