Does this mod of Roger's code get you there?

Private Sub Worksheet_Change(ByVal Target As Range)
Dim maxrow As Long, firstrow As Long
maxrow = 25
'firstrow = 2
If Target.Row = maxrow Then
Target.Offset(-17, 5).Activate
'Cells(firstrow, Target.Column + 4).Activate
End If
End Sub

HTH
Regrds,
Howard


"Dennis" wrote in message
...
We are using Excel 2000 at work for a worksheet. We use a barcode scanner
to
insert numbers into cells which inserts number then goes to cell below.
When
we get to bottom of first column we have to manually move up to begining
cell
of next column. Is there a command that I can put at the bottom of the
first
column that will move the cursor up to the the top cell of the next.