If your data is sorted you can use formula like
If(Dif(:B) == 1, 1 , :B == 1, 0 , -1 );
to mark rows. Then pick rows with values 0 and delete those