Valores duplicados Admitir

... no puedo ejecutar el modulo, el codigo lo pego tal como esta en un modulo de mi libro
cuado lo ejecuto me pide nombre de macro, pero al dar nombre de macro se crea una macro vacia.
que estoy haciendo mal?

> ... si necesitas mas informacion para que me puedas ayudar encantada te la brindo.
> No lo hace ninguna macro, lo digito teniendo como fuente una hoja impresa que envian las tiendas.
> La lista de tiendas esta en la columna A, alguna de ellas estan repetidas porque tienen que informar varias veces al dia
> esta lista se cambia en forma manual cada mes.
>>
>> 3) quieres que ingresando ventas en la columna D... segun la tienda identificada en la columna C [misma fila]
>> alguna macro *detecte* si es la primera, segunda o posteriores ventas/s que se registra/n EN LA MISMA CELDA
>> -> para *mandar* el dato de ventas [reciente o ultimo ingresado] a la celda *que le toque* en la columna B
>> -> *identificando* la tienda que le corresponda [columna A] segun la tienda *controlada* en la columna C ???
>
> CORRECTO HECTOR, eso es lo que necesito.

estoy *suponiendo* algunas cosillas, por lo que es probable que sea necesario efectuar algunos *ajustillos* :D

-> la fila 1 son titulos
-> en la columna A esta el listado de las tiendas incluyendo algunas repeticiones segun veces deben reportar ventas
-> en la columna B se debera depositar el dato que registres en la columna D [primera, segunda, ... ultima]
-> la columna D [venta registrandose] esta *en paralelo* con la columna C [que identifica a la tienda correspondiente]
-> el codigo REGISTRA la venta [columna B] segun las veces que se hayan ingresado datos en la columna D

copia/pega las siguientes lineas en el modulo de codigo de *esa* hoja y...
si cualquier duda [o informacion adicional]... comentas ?
saludos,
hector.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Intersect(Target, [d:d]) Is Nothing Then ActiveCell.Select
End Sub
Private Sub Worksheet_Change(ByVal Target As Range)
Dim Reportes As Byte, Sig As Byte, Tienda As Range
If Intersect(Target, [d:d]) Is Nothing Or Target.Row = 1 Then Exit Sub
If IsEmpty(Target) Then Exit Sub _
Else Reportes = Application.CountIf([a:a], Target.Offset(, -1))
If Reportes = 0 Then Exit Sub _
Else Set Tienda = [a:a].Find(Target.Offset(, -1), [a1], xlValues, xlWhole)
If IsEmpty(Tienda.Offset(, 1)) Then Tienda.Offset(, 1) = Target: GoTo Fin
For Sig = 2 To Reportes
Set Tienda = [a:a].FindNext(Tienda)
If IsEmpty(Tienda.Offset(, 1)) Then Tienda.Offset(, 1) = Target: Exit For
Next
Fin:
Set Tienda = Nothing
End Sub