Problemas Usando For e Next

[ElvisNoleto]

Boa tarde!

Pessoal desculpe se as minhas perguntas forem bobas. Vou tentar ser o mais claro possível.

seguinte...

Criei um código VBA no excel para comparar duas abas de uma planilha e copiar valores caso as minhas condições sejam verdadeiras, (vou dar exemplo)

eu consegui criar o código e ele funciona perfeitamente só que o problema é que se eu usar o código mais de 4 vezes o meu Pc entra em colapso (Intel Core i7 4ghz, 8gb de memória com placa de vídeo 2gb) se alguém souber alguma forma de otimizar o código para evitar travamento eu agradecerei infinitamente.

Ex Planilha:

Na planilha aba A temos na linha 1 o número 10 seguindo a linha temos uma série de dados como sala de aula e outros.

Na aba B temos nomes que quero atribuir as linhas da aba A. os nomes dos alunos são Numerados tendo lá alguns alunos com o número 1 o mesmo que tem

na aba A. Então a idéia da macro é atribuir automaticamente o nome do aluno á sala com número correpondente e caso tenha mais de um aluno com o mesmo número então serão divididos igualmente pelas salas. tá chega de baboseira vamos ao código.

Sub Copiar()

Sheets("Alunos").Select

Range("G2").Select

ActiveCell.FormulaR1C1 = "=COUNTA('Salas'!C2)" 'Conta os valores para o for não ser excessivamente grande

Calculate

a = Range("G2").Value

Contador = 2

For X = 1 To a

Sheets("Salas").Select

If Sheets("Salas").Cells(X, 9) = "1" Then

If Sheets("Salas").Cells(Contador, 1) = "" Then

Contador = 2

Else

Contador = Contador + 1 'FAZ UM LOOP CASO OS ALUNOS ACABEM

End If

If Sheets("Alunos").Cells(Contador, 3) = "1" Then

Sheets("Salas").Cells(X, 1) = Sheets("Alunos").Cells(Contador, 1)

Else

X = X - 1 'Evita que pule linhas

End If

End If

Next X ' Recomeça o valor do For

End Sub

Assim funciona só que se eu for usar mais critérios para separar pra mais salas tipo refazer para contar e separar também para o número "2".

O computador trava, eu sinceramente não sei se tem um bug na minha fórmula ou se tem outro jeito de usá-lo pra otimizar processamento.

Agradeço pela atenção.