Modificar un texto desde ListBox a mi Hoja12, habiendo nombres iguales

Tengo un problema que en las columnas de mi Hoja12 hay nombres iguales en las columnas y cuando quiero modificar uno de ellos no es el de la columna que yo quiero como puedo hacerlo.

.Tengo el siguiente código

Private Sub ComboBox1_Change()
If ComboBox1.Value = "" Then Exit Sub
If ComboBox1.ListIndex = -1 Then Exit Sub
col = ComboBox1.ListIndex + 1
uf = Cells(Rows.Count, col).End(xlUp).Row
ListBox3.List = Range(Cells(2, col), Cells(uf, col)).Value
End Sub

Private Sub CommandButton8_Click()
'Abrir el formulario para modificar
Sheets("Productos").Select
If Me.ListBox3.ListIndex < 0 Then
MsgBox "No se ha elegido ningún registro", vbExclamation, "Esteve"
Else
frmModeloModi2.Show
End If
End Sub

Private Sub CommandButton9_Click()
'Eliminar el registro
Sheets("Productos").Select
If Me.ListBox3.ListIndex < 0 Then
MsgBox "No se ha elegido ningún registro", vbExclamation, "Esteve"
Else
Pregunta = MsgBox("Está seguro de eliminar el registro?", vbYesNo + vbQuestion, "Esteve")
If Pregunta = vbYes Then
ActiveCell.EntireRow.Delete
End If
End If

End Sub

Private Sub ListBox3_Click()
'Activar la celda del registro elegido
Sheets("Productos").Select
Range("A2").Activate
Cuenta = Me.ListBox3.ListCount
Set Rango = Range("A1").CurrentRegion
For i = 0 To Cuenta - 1
If Me.ListBox3.Selected(i) Then
Valor = Me.ListBox3.List(i)
Rango.Find(What:=Valor, LookAt:=xlWhole, After:=ActiveCell).Activate
End If
Next i
End Sub

'
Private Sub UserForm_Activate()
Sheets("Productos").Select
'Cargar datos en el combo
uc = Cells(1, Columns.Count).End(xlToLeft).Column
ComboBox1.List = WorksheetFunction.Transpose(Range("A1", Cells(1, uc)))
End Sub