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

ahí esta a ver si te funciona @Manuel TR

saludos isidro

prueba_s insertarfila.xlsm

¡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!

Muchas gracias a los 2 me sirvió de mucho. 

Saludos

@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.

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

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.