Sub para validar filas repetidas sin usar código de producto

Don Dante muy amablemente me facilitó un código para validar si hay filas repetidas en mi hoja de productos, no obstante en Set b = R.Find(textbox3, LookAt:=xlWhole), tengo el problema, pues el textbox3 no lo debe tomar en cuenta ya que es el código y este se genera hasta después de validar y guardar, se genera automáticamente. Entonces siempre textbox estará vacío. 

Que puedo hacer para que el proceso valide las filas sin depender de que haya número de código.

Gracias

Public Sub Validar_repetidos_guardar()

'Por. Dante Amor
'valida si el registro ya existe
existe = False
Set h = Sheets("Productos")
Set R = h.Columns("A") 'columna del código
If IsNumeric(ComboBox1.Value) Then dato2 = val(ComboBox1.Value) Else dato2 = ComboBox1.Value 'Categoría
If IsNumeric(TextBox2.Value) Then dato3 = val(TextBox2.Value) Else dato3 = TextBox2.Value 'Producto
If IsNumeric(ComboBox2.Value) Then dato4 = val(ComboBox2.Value) Else dato4 = ComboBox2.Value 'Marca
If IsNumeric(TextBox5.Value) Then dato5 = val(TextBox5.Value) Else dato5 = TextBox5.Value 'Detalle
If IsNumeric(TextBox6.Value) Then dato6 = val(TextBox6.Value) Else dato6 = TextBox6.Value 'Unidad de medida
If IsNumeric(ComboBox3.Value) Then dato7 = val(ComboBox3.Value) Else dato7 = ComboBox3.Value 'Medida
dato10 = Format(Trim(TextBox11.Value), "GENERAL NUMBER") / 100 'IV%
dato6 = val(TextBox6.Value)
'
Set b = R.Find(textbox3, LookAt:=xlWhole)
If Not b Is Nothing Then
celda = b.Address
Do
'hc1 = h.Cells(b.Row, "B").Value
'hc2 = h.Cells(b.Row, "C").Value
'hc3 = h.Cells(b.Row, "D").Value
'hc4 = h.Cells(b.Row, "E").Value
'hc5 = val(h.Cells(b.Row, "F").Value)
If h.Cells(b.Row, "B").Value = dato2 And _
h.Cells(b.Row, "C").Value = dato3 And _
h.Cells(b.Row, "D").Value = dato4 And _
h.Cells(b.Row, "E").Value = dato5 And _
val(h.Cells(b.Row, "F").Value) = val(dato6) And _
h.Cells(b.Row, "G").Value = dato7 Then
existe = True
Exit Do
End If
Set b = R.FindNext(b)
Loop While Not b Is Nothing And b.Address <> celda
End If
If existe Then
MsgBox "El producto ya existe", vbCritical, "Productos"
Var_Rep = 0
Exit Sub
End If
'
'aquí continúa tu código para agregar el producto
Var_Rep = 1

End Sub