Problema con EntireRow.Delete

[rebiglione]

Estoy corriendo una macro que en el Rango A1:A15 deberia contar las celdas con "Roles de tripulacion", poner en la siguiente celda vacia del rango "x Roles de tripulacion" y borrar todas las filas del rango que contengan "Roles de tripulacion". La cuestion es que cuando intento con el ejemplo, me borra solamente dos de las cuatro filas que tengo con ese valor. 

Adjunto el archivo para mejor ilustracion.

Sub test()
If Application.WorksheetFunction.CountIf(Sheets(1).Range("A1:A15"), "Roles de tripulacion") > 0 Then
Sheets(1).Range(Range("A1").End(xlDown).Offset(1).Address).Value = Application.WorksheetFunction.CountIf(Sheets(1).Range("A1:A15"), "Roles de tripulacion") & " Roles de Tripulacion"
For y = 1 To 15
With Sheets(1)
               If Range("A" & y) = "Roles de tripulacion" Then
               Rows(y).EntireRow.Delete
                           End If
       End With
   Next y
   
   End If
End Sub
 

Sample.xlsm

[JSDJSD]

Solamente tienes que invertir el ciclo

Sub test()
If Application.WorksheetFunction.CountIf(Sheets(1).Range("A1:A15"), "Roles de tripulacion") > 0 Then
Sheets(1).Range(Range("A1").End(xlDown).Offset(1).Address).Value = Application.WorksheetFunction.CountIf(Sheets(1).Range("A1:A15"), "Roles de tripulacion") & " Roles de Tripulacion"
    For y = 15 To 1 Step -1
        With Sheets(1)
            If Range("A" & y) = "Roles de tripulacion" Then
                Rows(y).EntireRow.Delete
            End If
        End With
    Next y
End If
End Sub

 

[JSDJSD]

[rebiglione]

1 hour ago, JSDJSD said:

Solamente tienes que invertir el ciclo

Sub test()
If Application.WorksheetFunction.CountIf(Sheets(1).Range("A1:A15"), "Roles de tripulacion") > 0 Then
Sheets(1).Range(Range("A1").End(xlDown).Offset(1).Address).Value = Application.WorksheetFunction.CountIf(Sheets(1).Range("A1:A15"), "Roles de tripulacion") & " Roles de Tripulacion"
    For y = 15 To 1 Step -1
        With Sheets(1)
            If Range("A" & y) = "Roles de tripulacion" Then
                Rows(y).EntireRow.Delete
            End If
        End With
    Next y
End If
End Sub

 

Muchas gracias!