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.