Microsoft Excel Find Next Value Change in Column Macro https://aaron-hoffman.blogspot.com/2010/12/microsoft-excel-find-next-value-change.html

find-next-value-change-in-column.vba

Sub FindNextValueChangeInColumn()
'
' FindNextValueChangeInColumn Macro
'
On Error GoTo ErrHandler

Dim currentValue As String
Dim compareValue As String

currentValue = ActiveCell.Value

If (currentValue = "") Then
' Value is blank, this could mean we are at the bottom of all the values
' use xlDown for performance
Selection.End(xlDown).Select
Else
' select next cell down (priming read)
ActiveCell.Offset(1, 0).Select
compareValue = ActiveCell.Value

Do While currentValue = compareValue
ActiveCell.Offset(1, 0).Select
compareValue = ActiveCell.Value
Loop
End If

Exit Sub

ErrHandler:
Exit Sub
End Sub


Sub FindPreviousValueChangeInColumn()
'
' FindPreviousValueChangeInColumn Macro
'
On Error GoTo ErrHandler

Dim currentValue As String
Dim compareValue As String

currentValue = ActiveCell.Value

If (currentValue = "") Then
' Value is blank, this could mean we are at the top of all the values
' use xlUp for performance
Selection.End(xlUp).Select
Else
' select next cell down (priming read)
ActiveCell.Offset(-1, 0).Select
compareValue = ActiveCell.Value

Do While currentValue = compareValue
ActiveCell.Offset(-1, 0).Select
compareValue = ActiveCell.Value
Loop
End If

Exit Sub

ErrHandler:
Exit Sub

End Sub 

related blog post here: https://aaron-hoffman.blogspot.com/2010/12/microsoft-excel-find-next-value-change.html