Sub foo()
    Dim ReportValue As String, rngFound As Range
    
    ReportValue = Application.InputBox("Enter Report Value in XX% format")
    
    Set rngFound = ActiveCell.EntireRow.Find( _
                    What:=ReportValue, _
                    After:=ActiveCell, _
                    LookIn:=xlFormulas, _
                    LookAt:=xlPart, _
                    SearchOrder:=xlByRows, _
                    SearchDirection:=xlNext, _
                    MatchCase:=False, _
                    SearchFormat:=False)
                    
    'did we find anything?
    If rngFound Is Nothing Then
        MsgBox "Report value not found...."
    Else
        rngFound.Select
    End If

End Sub