Ayuda con Macro en Excel, que busque datos repetidos e inserte una fila y siga buscando..

Te mando mi solución y estas son las instrucciones:

-Posiciónate en la primera celda de los números de la seg. Soc. Y después ejecuta esta macro:

Sub ejemplo()
'por luismondelo
Do While ActiveCell.Value <> ""
valor = ActiveCell.Value
contarsi = Application.WorksheetFunction.CountIf(Columns(1), valor)
If contarsi > 1 Then
ActiveCell.Offset(1, 0).Select
ActiveCell.EntireRow.Insert
ActiveCell.Offset(1, 0).Select
Do While ActiveCell.Value = valor
ActiveCell.Offset(1, 0).Select
Loop
Else
ActiveCell.Offset(1, 0).Select
End If
Loop
End Sub

recuerda finalizar la consulta

Hola Luis.. estoy analizando la solución que me aportas tan amablemente... pero al correr la macro me marca el sig. error:

Error de Compilacion:

End If sin bloque If

no se que es lo que sucede...

te agradezco de antemano el tiempo que estas invirtiendo en apoyarme..

saludos cordiales y gracias de antemano

Sergio

Al capturar el código cometí un error.. por eso me marcaba error. Ya lo corregí.. y no marca error.. y funciona perfectamente , sulamente supongo que el error ha sido mio al expresarme.. la macro recorre por completo la columna e identifica los valores repetidos.. pero inserta la fila entre esos dos valores repetidos.. y lo que necesito es mas bien que inserte una fila antes de los dos valores que se repiten y no entre ellos..

Me apena bastante ser tan quisquilloso.. pero te agradeceré enormemente si puedes apoyarme en este sentido.. yo mismo buscare la manera (usando lógica en el código) pero siendo honestos.. mis conocimientos en esto son bastante burdos..

De antemano muchas gracias Luis

Saludos Sergio ..