Excel Macro para copiar dados de uma planilha em outra planilha

[Uilians Lemes]

Boa tarde!

Sou novo por aqui!

Preciso de uma ajuda sobre macro no excel.

Uso uma planilha para verificar vencimento de alguns itens.

Após o código do item inserido, a planilha me retorna o status "Vencido", "A Vencer" e "Válido", porém eu não armazena os itens que já foram verificados.

Minha necessidade é copiar os dados inseridos em uma planilha (Plan 1) para outra planilha (Plan 2).

Em anexo está uma imagem do que gostaria que a macro executasse.

Note que a célula onde é inserido o código é travada, o cursor não sai desta posição e os códigos são inseridos através de um leitor de código de barras (Scanner).

Perceba também como gostaria que fosse gerado a tabela com os dados dos itens verificados na (Plan 2)

 

Desde já, muito obrigado.

Atenciosamente.

 

[Basole]

Segue exemplo de código vba de acordo com as imagens

 

    * Cole o c[odigo abaixo,  no modulo da Plan1

Private Sub Worksheet_Change(ByVal Target As Range)
Dim r   As Range
Dim Lr  As Long
 
    If Target.Address = "$C$4" Then
     
      Set r = Range(Cells(Target.Row, 3), Cells(Target.Row, 5))
     
        With Worksheets("Plan2")
          Lr = .Cells(.Rows.CountLarge, 1).End(xlUp).Offset(1).Row
               .Cells(Lr, 4) = VBA.Date
               .Cells(Lr, 5) = VBA.Time
          With .Cells(Lr, 1) _
               .Resize(r.Rows.CountLarge, r.Columns.CountLarge)
               .Value = r.Value2
          End With
       
        End With
     
    End If
 
End Sub

 

[Basole]