barcode to move to the next row

[victorzun]

we have 6 cells available in each row to put the operator number in each cell (we use a list of barcodes to enter their numbers),
not always the same amount of people work in a job so I don't always use the 6 cells availables,
I would like if I only occupy 1, 2, 3 , 4 or 5 cells can have a barcode with a certain value that when I scan that bar code it sends me to the next row.

I appreciate the help in advance

 

[BSALV]

Private Sub Worksheet_Change(ByVal Target As Range)
     'we have 6 cells available in each row to put the operator number in each cell (we use a list of barcodes to enter their numbers),
     'not always the same amount of people work in a job so I don't always use the 6 cells availables,
     'I would like if I only occupy 1, 2, 3 , 4 or 5 cells can have a barcode with a certain value that when I scan that bar code it sends me to the next row.
     'I appreciate the help in advance


     '************************************************
     ' Your new scanned barcode comes straight in A1 !!!!
     ' your 6 cells per row are column 4->9, D:I
     '************************************************
     Dim MyBarcodeScanner As Range: Set MyBarcodeScanner = Range("A1")

     If Intersect(Target, MyBarcodeScanner) Is Nothing Then Exit Sub     'no new barcode
     If MyBarcodeScanner.Value <> "1234567890" Then Exit Sub    'my barcode has not this specific value

     k = ActiveCell.Column                                      'column number activeCell
     If WorksheetFunction.Median(4, 9, k) <> k Then Exit Sub    'activecell isn't somewhere in the 4th until 9th column
     Application.Goto ActiveCell.Offset(1, 4 - k), 0            'goto next line, 4th column

End Sub

 

[victorzun]

Thank you very much,

What values i need to change in your macro to make it work, i attached a picture of what Im trying to do

 

[BSALV]

i have no clue.
What happens when you scan a barcode, what cell is triggered ? What should happen next ?