Insertar filas despues de datos repetidos

[cuadros08]

Que tal Buen Dia

 

Tengo un problema con crear una macro que se es algo sencilla pero no doy, les explica:

Tengo una base de datos donde la columna A es la informacion principal y en ocasiones se repite, la macro tiene que insertar dos filas al termino de cada lista repetida que encuentre (los datos ya estan ordenados).

Adjunto un ejemplo, problema en pestaña 1 y como queda en pestaña 2

Gracias.

Saludos!!!

ejemplo.xlsx

[Dr Hyde]

prueba esta macro.

Sub agregar_fila()
Dim unicos As New Collection
Set datos = Range("a1").CurrentRegion
Set datos = datos.Offset(1, 0).Resize(datos.Rows.Count - 1, datos.Columns.Count)

For i = 1 To datos.Rows.Count
    sku = datos.Cells(i, 1)
    On Error Resume Next
    unicos.Add sku, CStr(sku)
    On Error GoTo 0
Next i

a = 1
For Each partn In unicos
    cuenta = WorksheetFunction.CountIf(datos.Columns(1), partn)
    If a = 1 Then Set part = datos.Resize(cuenta, 1)
    If a > 1 Then Set part = part.Rows(part.Rows.Count + 3).Resize(cuenta, 1)
    part.Rows(part.Rows.Count + 1).Resize(2, 1).EntireRow.Insert
a = a + 1
Next partn
End Sub
 

[cuadros08]

Que tal Dr Hyde.

Funciono perfectamente

Gracias por tu ayuda.