Excel Macro copiar e colar 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

 

[Uilians Lemes]

@Basole Muito obrigado! Exatamente o que eu preciso! 

Muito agradecido!

[Visitante]

Segue uma alternativa considerando que há fórmula em D4 e/ou E4 da Plan1. Se não, coloque em qualquer célula vazia da Plan1 ~~~> =C4.

Instale uma cópia do código no módulo da Plan1.

 

Private Sub Worksheet_Calculate()
 Sheets("Plan2").Cells(Rows.Count, 1).End(3)(2).Resize(, 5).Value = Array([C4], [D4], [E4], Date, Time)
End Sub