é um cronograma de aula para professores tipo escala para dar aula no mesmo dia para varias turmas so que nao pode repetir a aula para duas turma no mesmo horário, macro em vba

i = 2
j = Sheets("Plan1").Range("A65536").End(xlUp).Row

Do While i <= j

If Sheets("Plan1").Cells(i, 1) = Sheets("Plan1").Cells(i, 2) Then
i = i + 1
Else
MsgBox ("Erro na linha " & i)
Cancel = True
Exit Sub
End If

Loop
pessoal é isso aqui so que se for igual ele deve continuar a percorrer a coluna B e ir reordenando ate ser todos diferentes diferente

Para ficar mais fácil lhe ajudar, poderia postar um exemplo da sua planilha?

Segue a planilhar, desculpe a bagunça, é uma pranilha aula para professores sao varias turma e as aulas dos professores nao podem ter conhecidencias

Não consegui compreender como você quer que fique?

Na planilha escala eu lanço as aulas para cada professores e para as turma, na planilha al. semana eu transfiro os professores para cada aulas verificando se elas coincide se coincidirem ele lança outro professor (compara linha por linha se o professore tiver sido lançado na linha ele busca outro professor ate alocar todos)
a primeira turma (6ª a) eu lancei avulso ja na segunda tem ki checar se coincide lancar diferente