Find secound value in column

I have this code that selects from "CO OW Market" to "GRP Total" in a column

Sub BDe()
Dim rng As Range
Set rng = Range("D2:D" & Cells(Rows.Count, 4).End(xlUp).Row)
With ActiveSheet
    .Range(rng.Find("CO OW Market"), rng.Find("GRP Total")).Offset(1, 1).Resize(9, 1).Select  'Offset(1, -1).Select
End With
End Sub

Perfect, but in need to do the same thing, but this time select from "CO OW Market" to "GRP Total" in the same column after the first. meaning "CO OW Market" and "GRP Total" come up twice in the same columun.

example:

D6 = CO OW Market

D8 = GRP Total

D26 = CO OW Market

D45 = GRP Total


I need to select from D26 to D45. They will not always be in the same rows is why I need to find it. They will be in that order though