VBA select cell with a specific value and all cells below until blank

Give this a try (I show my addition in red)...

Range(Columns("A").Find("New SRs", [A1], xlValues, xlWhole, , xlNext, False, , False), Cells(Rows.Count, "A")).SpecialCells(xlConstants).Areas(1).Resize(,19).Select