Excel Visual Basic help

marvel2r 

Try

Sub inout()
    Dim ws1 As Worksheet
    Dim ws2 As Worksheet
    Dim barcode As String
    Dim rng As Range
    Dim rownumber As Long
    Set ws1 = Worksheets("Form")
    ' *** Change Sheet2 to the name of the other sheet ***
    Set ws2 = Worksheets("Sheet2")
    barcode = ws1.Range("B2").Value
    Set rng = ws2.Range("A:A").Find(What:=barcode, LookIn:=xlValues, LookAt:=xlWhole)
    If rng Is Nothing Then
        Set rng = ws2.Range("A" & ws2.Rows.Count).End(xlUp).Offset(RowOffset:=1)
        rng.Value = barcode
    End If
    rownumber = rng.Row
    Set rng = ws2.Cells(rownumber, ws2.Columns.Count).End(xlToLeft).Offset(ColumnOffset:=1)
    rng.Value = Now
    rng.NumberFormat = "m/d/yyyy h:mm AM/PM"
    ws1.Range("B2").ClearContents
End Sub