Assuming your data is in column A and you wish to notate in the appropriate row in column B, this macro will accomplish your goal. It is not case sensitive and will locate Statistics, Statistics, or statistics and notate correctly.
If you wish to use different columns, modify the macro before copying:
In Line 3 replace the 'A' in A1 and the 'A' in Range("A" with the column letter your data is in.
If you do not want to notate in the very next column to the right of your data, change the '1' in "ActiveCell.Offset(0, 1).Value" to the number of columns you wish to offset for notation entry.
Open your workbook
Copy this macro, modified if necessary, to the clipboard:
Sub Custom_Find_and_Notate()
Dim rng As Range
Set rng = Range("A1:" & Range("A" & _
ActiveSheet.Rows.Count). End(xlUp).Address)
findthis = InputBox("Please enter your search criteria.", _
"Key Word")
replwith = InputBox("Please enter the text to notate.", _
"Replace With")
For Each cell In rng
cell.Select
If UCase(ActiveCell.Value) = UCase(findthis) Then
ActiveCell.Offset(0, 1).Value = replwith
End If
Next
Range("A1").Select
End Sub
Press ALT + F11
Insert > Module
Paste the macro into the module space to the right.
Close back to Excel.
Go to Tools > Macro > Macros
Highlight this macro, if it is not already highlighted.
Click 'Options...' (bottom right)
Select a letter to be used as a keyboard shortcut.
Close back to Excel.
Press CTRL + your shortcut letter to run the macro.