From the picture you have included, what results do you expect in R32, R33 and R34 ?
Sub GetPositions()
Dim rng As Range
Dim cel As Range
'range to search
Set rng = Range("P1:AD23")
For Each cel In rng
'take variations of no into account
If UCase(Trim(cel.Value)) = "NO" Then
'if no is found, put address in next available row in col R
Range("R" & Cells(Rows.Count, "R").End(xlUp).Row + 1).Value = cel.Address
End If
Next cel
End Sub
Have a look at http://www.contextures.com/xlvba01.html
Clicking on the link opens it for me.
If not for you then do a Google search for "contextures adding code to an Excel Workbook"