Having trouble defining .FIND Range

Greetings,

I have a sub I have been working on for a while. It works beautifully on the first section of my spreadsheet, but not on any subsequent sections.

I am working with an antiquated report our accounting system spits out.

I need to look for the first instance of a value, ("STATE END") in column A, starting at the row I have defined with my input box ("CurrRow") and searching to the bottom of the worksheet.

The line that is not working for me is "Set uRange = Activesheet.UsedRange"
Everything else works great.

Here is what I have:

' Run the Input Box.
    Response = Application.InputBox("Enter the Starting Row Number as an Integer.", _
    "Number Entry", , 250, 75, "", , 1)

' Check to see if ESC was pressed.
    If Response <> False Then

' If not, write the number to the variable.
    CurrRow = Response
    End If
    
'Determine End of Range
Set uRange = ActiveSheet.UsedRange

Set FindTitle = uRange.Find("STATE END")

    If FindTitle Is Nothing Then
        MsgBox ("Sorry! No keyword title is found")
    Else
        tRow = FindTitle.Row
        tCol = FindTitle.Column
    End If

Please help!!!