Inventory using Excel

Thanks for looking into this! One more questions:

Is there a way to have the cursor move to the changed cell ONLY when a new code is scanned, and therefore adding it to the bottom of the list. Here is what the code looks like now for ADDING to the inventory:


Private Sub Worksheet_Change(ByVal Target As Range)
Select Case Target.Address
Case "$A$4" 'add
If Target.Value <> "" Then
On Error Resume Next
Set xitem = Range("C8", Range("C" & Rows.Count) _
.End(xlUp)).Find(Range("A4").Value)
With xitem.Offset(0, -1)
.Value = .Value + 1
End With
On Error GoTo 0
If xitem Is Nothing Then
With Range("C" & Rows.Count).End(xlUp).Offset(1, 0)
.Value = Target.Value
.Offset(0, -1) = 1
End With
End If
Range("A4") = ""
Range("A4").Select
End If


Thanks Again!