Creating Inventory Macros

I am using Excel to keep track of monthly inventory and I need to
input stock on daily basis. Column A has a 6 didget stock numbers
approx. 300 items and I have an in & out column for each day of the
month. I need to remain in one column while I find the stock no.
according to the day.


#112233 input 2 to day March 7

#112233 being Column A98, March 7 being column Q entered into Q98 in 2

Stock no. #2666 A56 entered to Q56. Each time I enter a stock no. the
highlited cell will remain in column Q until request to change day of

Need macro to enter date, another to find stock cell.

Currently using macro below but offset would not be used because
offset continuously changes daily.

Sub Macro1()
Dim ans
Dim cell As Range
ans = InputBox("Enter Stock number")
If ans <> False Then
Set cell = Cells.Find(What:=ans, _
After:=Range("A1"), _
LookIn:=xlFormulas, _
LookAt:=xlWhole, _
SearchOrder:=xlByRows, _
SearchDirection:=xlNext, _
MatchCase:=False, _
If Not cell Is Nothing Then
cell.Offset(0, 4).Select
End If
End If
End Sub