Separar registros que reunen diferentes criterios

[Manuel TR]

Hola a todos si alguien me puede ayudar con el siguiente caso:

Tengo una variedad de registros desde la fila A7 hacia abajo (en la hoja "datos") y necesito que se separan por grupos de acuerdo a los codigos de la columna "A",

Para tal separación se debe insertar una fila de bajo, tal como se muestra en la hoja llamada "debe quedar asi".

Gracias.

prueba_s.xlsx

[isidrod]

ahí esta a ver si te funciona @Manuel TR

saludos isidro

prueba_s insertarfila.xlsm

[John Jairo V]

¡Hola, a ambos!

Dejo esta otra opción:

Sub InsertaFilas()
    Dim C As Range, Rng As Range
   
    For Each C In Range("A8", Range("A" & Rows.Count).End(xlUp))
        If C.Offset(-1) <> C Then
            If Rng Is Nothing Then
                Set Rng = C
            Else
                Set Rng = Union(Rng, C)
            End If
        End If
    Next C
    Rng.EntireRow.Insert
End Sub

¡Bendiciones!

[Manuel TR]

Muchas gracias a los 2 me sirvió de mucho. 

Saludos

[Leopoldo Blancas]

@Manuel TR

Ayer fue insertar 4 Filas con Texto y formulas y borrar una fila, hoy con los mismos datos es insertar una fila???

Saludos.

[Manuel TR]

Hace 3 horas, Leopoldo Blancas dijo:

@Manuel TR

Ayer fue insertar 4 Filas con Texto y formulas y borrar una fila, hoy con los mismos datos es insertar una fila???

Saludos.

Hola Leopoldo, gracias por responder es otro caso con una distinta finalidad, pero ya esta solucionado, muchas graciasss

[Leopoldo Blancas]

Hace 28 minutos , Manuel TR dijo:

Hola Leopoldo, gracias por responder es otro caso con una distinta finalidad, pero ya esta solucionado, muchas graciasss

Deberías de ponerle un color a cada celda, sin que se repita, o insertar 2 filas sin que se de cuenta la primera...

Saludos.