The first line of your code is missing a line break.
Also, it would be better to defensively code to allow for the chance that the range object's find method doesn't find a cell containing the value you are looking for. Typically we do this using an intermediary range object variable which we can test:
Dim ReportValue As String, rngFound As Range
ReportValue = Application.InputBox("Enter Report Value in XX% format")
Set rngFound = ActiveCell.EntireRow.Find( _
'did we find anything?
If rngFound Is Nothing Then
MsgBox "Report value not found...."