Se você quer lançar um código na coluna 'A' da "Plan1" e buscar na "Plan2" as informações correspondentes ao código lançado, utilize o código abaixo. O seu outro código não é necessário .

Private Sub Worksheet_Change(ByVal Target As Range)
 Dim cod As Long
  If Target.Count > 1 Then Exit Sub
  If Target.Column > 1 Or Target.Value = "" Then Exit Sub
   cod = Sheets("Plan2").[A:A].Find(Target.Value, lookat:=xlWhole).Row
   Target.Offset(, 1).Resize(, 8).Value = Sheets("Plan2").Cells(cod, 2).Resize(, 8).Value
End Sub

sugestão - coloque Validação de Dados na coluna 'A' da "Plan1" com base na lista dos códigos

rhudenr,

Boa tarde!

Vi o arquivo rapidamente somente no celular, mas... não seria o caso apenas de utilizar o PROCV?

Boa Tarde Wagner, sim eu utilizo o PROCV na planilha original é mais uma questão para aprendizado mesmo porque sou novo em VBA.

... é mais uma questão para aprendizado mesmo porque sou novo em VBA.

sugestão - desde já não utilize Select nos seus códigos