What are you planning on doing after you select all those Rows?
Guessing that you plan to hide all the others
'Start Sub
dim Cel As Range
For each Cel in Range(Range("B2"),Cells(Rows.Count, "B").End(xlUp))
If Cel <> "GP20" Then
Cel.EntireRow.Hidden = True
Exit If
ElseIf LCase(Cel.Offset(0, 3)) = "finished" then
Cel.EntireRow.Hidden = True
End If
Next Cel
End Sub
If that's what you want, I can show you how to do the same thing with "G19, "G21", etc, and Finished or unfinished or any other such term.