Find the last matching activecell value in cells below and then select.

[danbates]

Hi,

I have a code that would already select the first D or N depending on what shift it is at work.
I would like a code that can then find the last cell value that matches the activecell value in column B but searches from the activecell downwards.

Example:
D
N
D
N - This is the activecell
N
N
N - I would like a code that would select this row in column B instead.
D
N
D

Any help would be appreciated.

Thanks
Dan

 

[footoo]

Why select that cell? There is a cell further down which contains N.

 

[danbates]

Hi,
I need it to be that cell because it is on the same shift as the first D or N of that block of D's or N's.

The last N of my example would be the following night shift.

 

[footoo]

Sub v()
Dim c As Range: Set c = ActiveCell
Dim i&: i = 2
Do While c(i) = c.Value
    i = i + 1
Loop
c(i - 1).Select
End Sub

 

[danbates]

Perfect, just what I wanted.

Thank you footoo