value of Column and Row, How can I get the cell where the column and row intersect?

Hi,

I have a table where Box #'s are in Rows and Dates are in Column. I use the find function to find two cells based on the user input of box # and date. Now that I have these two cell, I want to find where the row and column intersects and allow the user to enter a number there using an input box. Below is what I have so far. I think I need to somehow index the cells, but am not sure how. Can someone please help me? Thank you so much

Sub CashMacro()
Dim strName As String, ws As Worksheet

strName = Application.InputBox("Please enter the month name: i.e. May, June, July", "Enter Month Name")
On Error Resume Next
Set ws = Worksheets(strName)
    
    If Not ws Is Nothing Then 'If the sheet exists then select it
    Sheets(strName).Select.Activate

    Else 'If the sheet does not exist then display error message
    MsgBox ("The sheet doesn't exist or you entered the name incorrectly")

    End If

    
'This is when the user will input Date and Lockbox Number
 Rows("3:3").Select
    Set u = Cells.Find(InputBox("Please Enter Lockbox #: i.e. 4020", "Enter Lockbox #"), _
After:=ActiveCell, LookIn:=xlValues, LookAt _
        :=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
        False, SearchFormat:=False).Activate
        

    
        
Range("A3:A36").Select
Application.FindFormat.NumberFormat = "m/d/yyyy"
Selection.Find(InputBox("Please Enter the Date: i.e. 03/27/14", "Enter Date"), After:=ActiveCell, LookIn:=xlValues, _
LookAt:=xlPart, SearchOrder:=xlByColumns, SearchDirection:=xlNext, _
MatchCase:=False, SearchFormat:=True).Activate

Screenshot.png

Thanks for the speedy reply. I'm still relatively new to VBA coding and I tried working with my code with your suggestion and it doesn't work. Can someone offer more insight or walk me through my code to help me understand my errors.

Sub CashMacro()
Dim strName As String, ws As Worksheet

strName = Application.InputBox("Please enter the month name: i.e. May, June, July", "Enter Month Name")
On Error Resume Next
Set ws = Worksheets(strName)
    
    If Not ws Is Nothing Then 'If the sheet exists then select it
    Sheets(strName).Select.Activate

    Else 'If the sheet does not exist then display error message
    MsgBox ("The sheet doesn't exist or you entered the name incorrectly")

    End If

    
'This is when the user will input Date and Lockbox Number
 Dim HDRColumn As Range, HDRRow As Range
Rows("3:3").Select
    Set HDRColumn = Cells.Find(InputBox("Please Enter Lockbox #: i.e. 4020", "Enter Lockbox #"), _
After:=ActiveCell, LookIn:=xlValues, LookAt _
        :=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
        False, SearchFormat:=False).Activate
        

    MsgBox (f)
        
Range("A3:A36").Select
Application.FindFormat.NumberFormat = "m/d/yyyy"
Set HDRRow = Selection.Find(InputBox("Please Enter the Date: i.e. 03/27/14", "Enter Date"), After:=ActiveCell, LookIn:=xlValues, _
LookAt:=xlPart, SearchOrder:=xlByColumns, SearchDirection:=xlNext, _
MatchCase:=False, SearchFormat:=True).Activate

MsgBox (f)

Cells(HDRRow.Row, HDRColumn.Column) = InputBox("Enter Value to be inputted")