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

Maybe:

Sub mattress58()
Dim x As Range
Dim y As Range
Dim z As Range
Dim w As Long
w = Range("D" & Rows.Count).End(3).Row
Set x = Columns(4).Find("CO OW Market", LookIn:=xlValues, lookAt:=xlWhole)
    If Not x Is Nothing Then
        Set y = Range(Cells(x.Row, "D"), Cells(w, "D")).Find("CO OW Market", LookIn:=xlValues, lookAt:=xlWhole)
         If Not y Is Nothing Then
            Set z = Range(Cells(y.Row, "D"), Cells(w, "D")).Find("GRP Total", LookIn:=xlValues, lookAt:=xlWhole)
              MsgBox "CO OW Market found in Range D" & y.Row
              MsgBox "GRP Total found in Range D" & z.Row
        End If
    End If
    Set x = Nothing
    Set y = Nothing
    Set z = Nothing
End Sub

Thanks , it had a pop up that notified me of the range that it was in. I need it to select from "CO OW Market" to "GRP Total" the secound time they both apear just like

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

did for the first time they appeared.

Try:

Sub mattress58()
Dim x As Range
Dim y As Range
Dim z As Range
Dim w As Long
w = Range("D" & Rows.Count).End(3).Row
Set x = Columns(4).Find("CO OW Market", LookIn:=xlValues, lookAt:=xlWhole)
    If Not x Is Nothing Then
        Set y = Range(Cells(x.Row, "D"), Cells(w, "D")).Find("CO OW Market", LookIn:=xlValues, lookAt:=xlWhole)
         If Not y Is Nothing Then
            Set z = Range(Cells(y.Row, "D"), Cells(w, "D")).Find("GRP Total", LookIn:=xlValues, lookAt:=xlWhole)
              Range(Cells(y.Row, "D"), Cells(z.Row, "D")).Select
        End If
    End If
    Set x = Nothing
    Set y = Nothing
    Set z = Nothing
End Sub

Will there always only be 2 occurances?