Veja no tópico viewtopic.php?f=20&t=2912, creio que faz o que deseja.

Creio que poderia ser assim:

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Column = 1 Then
    Range("C" & Target.Row) = Format(Date, "dd/mm/yy") & " " & Format(Time, "hh:mm:ss")
    End If
End Sub

Porem dependendo do modo como é entendido a leitura do codigo de barra, talvez deva utilizar o evento Calculate

Talvez assim no evento Calculate da planilha

Private Sub Worksheet_Calculate()
Dim uRow As Long
uRow = Cells(Cells.Rows.Count, "A").End(xlUp).Row
For x = 2 To uRow
If Cells(x, 1) <> "" And Cells(x, 3) = "" Then
Range("C" & x) = Format(Date, "dd/mm/yy") & " " & Format(Time, "hh:mm:ss")
End If
Next
End Sub

Muito obrigado Reinaldo. Só uma coisa que eu gotaria que também acontecesse, quero que apareça a data e hora somente quando tiver algum código de barra lido. Mas, com que me passou a data e hora já então aparecendo como eu queria.

Não entendi o que quis dizer com :"quero que apareça a data e hora somente quando tiver algum código de barra lido".
Em meu post inicial frisei :"dependendo do modo como é entendido a leitura do codigo de barra"; pois ainda não utilizei esse ferramenta, então não sei qual o estimulo não planilha.
Crei que seja o Calulate, porem é necessario investigar, mas não tenho como