DIVINORS

Olá amigos.Solicito ajuda na macro abaixo.1- Preciso armazenar em uma variavel os codigos de Plan1 J1:J102- Comparar estes codigos com a coluna "D" que vai ter centena de linhas. Os codigos sendo iguais a plan1 J1:J10 copiar estes dados encontrados para plan2 coluna "D" como ST01(somente os selecionados.3- Segue abaixo desta tabela a macro (que preciso de ajuda) + anexo.Plan1 Plan2J1 = 07-0345 ="D" ST01J2= 07-0346 ="D" ST01J3= 07-0347 ="D" ST01J4= 07-0348 ="D" ST01J5= 07-0349 ="D" ST01J6= 07-0350 ="D" ST01J7= 07-0351="D" ST01J8= 07-0352="D" ST01J9= 07-0353="D" ST01J10= 07-0354="D" ST01Sub Copia()Dim ST01 As StringPlan1.ActivateST01 = Range("J1:J10").Select (ESTÁ ACONTECENDO ERRO AQUI)Plan2.Activate 'Ativando a planilha 2 que vai receber os dadosPlan2.Range("A2:D50000").ClearContents 'Limpando o conteudo da planilha 2ultimaLinha = Plan1.Cells(Rows.Count, "a").End(xlUp).Row 'Fazendo a leitura de todas as linhas da planilha 1lin = 2For i = 2 To ultimaLinhaIf Plan1.Cells(i, 1) <> "" And Plan1.Cells(i, 4) = ST01 ThenPlan2.Cells(lin, 1) = Plan1.Cells(i, 1) 'Planilha 2 recebe os dados da Planilha 1Plan2.Cells(lin, 2) = Plan1.Cells(i, 2) 'Planilha 2 recebe os dados da Planilha 1Plan2.Cells(lin, 3) = Plan1.Cells(i, 3) 'Planilha 2 recebe os dados da Planilha 1Plan2.Cells(lin, 4) = Plan1.Cells(i, 4) 'Planilha 2 recebe os dados da Planilha 1lin = lin + 1End IfNextEnd Sub