pegar serie_inicio y serie_final de códigos duplicados

[soda1206]

hola estimados foreros, ojalá puedan ayudarme por favor, necesito una macro para obtener la serie_inicio y la serie_final de registros que están duplicados (Columna A), les adjunto archivo de ejemplo con los datos y que lleva en columna D, E el cómo debería quedar la solución final. Desde ya, les agradezco cualquier ayuda foreros.

ayudaexcel_series.xlsx

[Antoni]

Sub Seriar()
Application.ScreenUpdating = False
For x = 2 To Range("A" & Rows.Count).End(xlUp).Row
   If Not Range("A" & x) = Range("A" & x - 1) Then inicio = Range("C" & x)
   Range("D" & x) = inicio
Next
For x = Range("A" & Rows.Count).End(xlUp).Row To 2 Step -1
   If Not Range("A" & x) = Range("A" & x + 1) Then fin = Range("C" & x)
   Range("E" & x) = fin
Next
End Sub

 

[soda1206]

Buen día estimado @Antoni, quiero agradecerte nuevamente tu gran aporte y apoyo que le das a la comunidad, sinceramente "NO TE MUERAS NUNCA ANTONI"!! 🙂 ese es un grito que tenemos (Chile) en son de agradecimiento eterno. Doy el tema por solucionado. Muchas gracias @Antoni