No clue where to start - need to move cursor relative to a found cell.

I have a spreadsheet that I use for entering received inventory from packing lists. I search (CTRL+F) enter the item number from the packing list and Excel finds it. The item number is always in column 1. Then I have to cursor over 4 cells to the received column and enter the number received, so that price labels may be printed. Does not seem too hard to do, but when entering a few hundred items, that's a LOT of keystrokes. I'm trying to write a macro that would callup the find function, allow me to enter the item number, find it, move the cursor right 4 cells and put the number 1 in the cell, and remain there in case there are more than one received, which is not often the case.
I tried using the macro recorder to get an idea of the code, but everything was an absolute value and frankly, not valuable to me. Eventually I would like to add other functionality to it, like checking the number on hand against received and so forth, but really need an idea on how to get started.

I setup a key combination to call macro to move cursor to cell of choice.

In ThisWorkbook module I have:

Private Sub workbook_open()
'SHIFT +, CTRL ^, ALT %
Application.OnKey "^q", "TABOVER"
Application.OnKey "%s", "TABOVER_SN"
'Application.OnKey "%r", "StartCol3"
Application.OnKey "%`", "StartCol3"
End Sub

Then in a standard module, I have:

Sub TabOver()
'Cells.goto ("Q" & ActiveCell.Row)
Application.GoTo Reference:=Worksheets("DATA").Range("W" & ActiveCell.Row)
End Sub

Sub TabOver_SN()
'Cells.goto ("Q" & ActiveCell.Row)
Application.GoTo Reference:=Worksheets("DATA").Range("Q" & ActiveCell.Row)
End Sub

Sub StartCol3()
If Not Application.CutCopyMode Then
        Worksheets("DATA").Range("C" & ActiveCell.Row + 1).Select
End If
End Sub

See the uploaded example.

If this will suffice, copy the code over to your workbook.

Replace the line

Application.GoTo Reference:=Worksheets(1).Range("E" & ActiveCell.Row)

with this.

Application.GoTo Reference:=ActiveCell.Offset(, 3)