Si sus datos están ordenados, puede usar fórmulas como
If(Dif(:B) == 1, 1 , :B == 1, 0 , -1 );
para marcar filas. Luego elija filas con valores 0 y elimínelas.