Hallo,
If Cells(z, 2).Value = Cells(z - 1, 2).Value And Cells(z, 2).Value = Cells(z - 2, 2).Value Then
Gruß Werner