Move active cell down and across after entry from scales

[Mudsy]

Hello.

I have a barcode scanner and a set of scales that are both linked to a laptop and will input data directly to excel.
after the barcode has been entered (into A1) it automatically moves right. So far so good.
When the print button on the scale is pressed it enters the weight (into B1) but then automatically moves down (B2).
What I would like to do is have it return to A2 so I can scan the next barcode.
Any help would be greatly appreciated!

Thanks

 

[BSALV]

in the sheetmodule

Private Sub Worksheet_Change(ByVal Target As Range)
     With Target
          If .Count > 1 Then Exit Sub                           'when you change more then 1 cell at the same time, do nothing
          If Intersect(Target, Range("1:2")) Is Nothing Then Exit Sub     'you didn't change anything in rows 1:2 = do nothing
          If .Row = 1 Then
               Application.Goto .Offset(1)                      'you changed a cell in row 1 = goto the cell below in row 2
          Else
               k = Application.Max(Cells(1, Columns.Count).End(xlToLeft).Offset(, 1).Column, Cells(2, Columns.Count).End(xlToLeft).Offset(, 1).Column)     'first free column for both row 1 and 2
               Application.Goto Cells(1, k)
          End If
     End With
End Sub