Bom dia !!!

Tenho o código abaixo o qual realiza tipo um Procv de outra aba de minha planilha. Porém, toda vez que executo esta Macro, ela acaba buscando todas informações que já estão na Planilha.

Ex : Coluna "A" está com 300 informações, se insiro a informação 301 esta macro me busca as 301 informações.
Gostaria que quando eu jogar a informação 301 ele busque apenas a informação 301 e não todas as outras 300 que ja estão na base.
Como se as 300 informações anteriores não precisa-se mexer mais.

Sheets("BASE_NOVA").Select

'Define as Sheets
Set p1 = Sheets("BASE_NOVA")
Set p2 = Sheets("DEVOLUÇÃO_CENTRO_1011")

'Limite da busca
Frow1 = p1.Range("A1048576").End(xlUp).Row
Frow2 = p2.Range("A1048576").End(xlUp).Row

i = 2

Do While (i <> Frow1 + 1)

For J = 2 To Frow2

If p1.Cells(i, 1).Value = p2.Cells(J, 1) Then
p1.Cells(i, 2).Value = p2.Cells(J, 2)
p1.Cells(i, 3).Value = p2.Cells(J, 3)
p1.Cells(i, 4).Value = p2.Cells(J, 4)
p1.Cells(i, 5).Value = p2.Cells(J, 5)
p1.Cells(i, 6).Value = p2.Cells(J, 6)
p1.Cells(i, 8).Value = p2.Cells(J, 8)
p1.Cells(i, 9).Value = p2.Cells(J, 10)
p1.Cells(i, 10).Value = p2.Cells(J, 11)
p1.Cells(i, 11).Value = p2.Cells(J, 11)
p1.Cells(i, 12) = p2.Cells(J, 12)

J = Frow2 + 1

End If
Next J

i = i + 1

Loop

End Sub