Insertar una fila cuando se cumpla una condición

H o  l a:

Te anexo la macro, cambia en la macro la letra "A" por la columna donde tienes los nombres.

Sub InsertarFila()
'Por.Dante Amor
    col = "A"   'columna de nombres
    u = Range(col & Rows.Count).End(xlUp).Row
    ant = Cells(u, col)
    For i = u To 1 Step -1
        If Cells(i, "A") <> ant Then Rows(i + 1).Insert
        ant = Cells(i, "A")
    Next
    MsgBox "fin"
End Sub

' : )
'S aludos. Dante Amor. Recuerda valorar la respuesta. G racias
' : )