COPIAR E COLAR DADOS COM CRITERIO

[DIVINORS]

Olá amigos.
Solicito ajuda na macro abaixo.

1- Preciso armazenar em uma variavel os codigos de Plan1 J1:J10
2- 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 Plan2
J1 = 07-0345 ="D" ST01
J2= 07-0346 ="D" ST01
J3= 07-0347 ="D" ST01
J4= 07-0348 ="D" ST01
J5= 07-0349 ="D" ST01
J6= 07-0350 ="D" ST01
J7= 07-0351="D" ST01
J8= 07-0352="D" ST01
J9= 07-0353="D" ST01
J10= 07-0354="D" ST01

Sub Copia()
Dim ST01 As String

Plan1.Activate
ST01 = Range("J1:J10").Select (ESTÁ ACONTECENDO ERRO AQUI)


Plan2.Activate 'Ativando a planilha 2 que vai receber os dados
Plan2.Range("A2:D50000").ClearContents 'Limpando o conteudo da planilha 2

ultimaLinha = Plan1.Cells(Rows.Count, "a").End(xlUp).Row 'Fazendo a leitura de todas as linhas da planilha 1
lin = 2

For i = 2 To ultimaLinha
If Plan1.Cells(i, 1) <> "" And Plan1.Cells(i, 4) = ST01 Then

Plan2.Cells(lin, 1) = Plan1.Cells(i, 1) 'Planilha 2 recebe os dados da Planilha 1
Plan2.Cells(lin, 2) = Plan1.Cells(i, 2) 'Planilha 2 recebe os dados da Planilha 1
Plan2.Cells(lin, 3) = Plan1.Cells(i, 3) 'Planilha 2 recebe os dados da Planilha 1
Plan2.Cells(lin, 4) = Plan1.Cells(i, 4) 'Planilha 2 recebe os dados da Planilha 1


lin = lin + 1
End If
Next

End Sub