I have the following code that creates a thick horizontal border line after each cel from column B to column L.

But now I want it to create the thick border line after every number sequence change in column b, for example:

1
1
1
_________________(thick border line
2
2
____________________
3
3
3
3
3
____________________________

and so on....

What part of the code do I need to change to make it do this?



Code:
Dim r As Range
Set r = Range(Range("b8"), Range("b" & Rows.Count).End(xlUp))
r.Select
Dim cell As Range
For Each cell In r
'************************************************
'Draw Horizontal Lines or clear horizontal lines
'************************************************
If cell.Offset(1, 0).Value <> "" Then Call DrawThickHoriziontalLineBelowRange(Range(Cells(cell.Row, 2), Cells(cell.Row, 12)))
Next cell
End Sub
Sub DrawThickHoriziontalLineBelowRange(r As Range)
With r.Borders(xlEdgeBottom)
.LineStyle = xlContinuous
.Weight = xlThick
.ColorIndex = xlAutomatic
End With
End Sub
Sub ClearHoriziontalLineBelowRange(r As Range)
r.Borders(xlEdgeBottom).LineStyle = xlNone
End Sub