VBA code for presentable excel report to receipients

Anyone here know how to change my code to draw a horizontal thick border after each number sequence change in column B.

I have searched all the canned excel views and none work, seems like a lot of folks would need to make the excel report presentable by automation, I cannot figure out the sequence change part?

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

hi Jeromeisma, can you post sample workbook showing original data and result you need to obtain?

please check attachment sample, press "Underline", hope it helps

I attached an example of what I am looking for.

please check attachment

That is what I am looking for, works perfectly.

What part of the code would I copy if I just wanted to use the macro and not the button, I have never used buttons before, I would just copy the macro and rename it?

Thanks so much for the help, this is awesome......

the code itself:

Sub test()
Dim myrng As Range, cl

Application.ScreenUpdating = 0

With ActiveSheet
    
    .Range("a1").CurrentRegion.Borders.LineStyle = xlContinuous
    
    Set myrng = .Range("b2", .Cells(Rows.Count, "b").End(xlUp).Offset(1))
    
        For Each cl In myrng
        
            With cl
            
                If .Value <> cl.Offset(1).Value Then
                
                    With .Resize(, 11).Borders(xlEdgeBottom)
                        .LineStyle = xlContinuous
                        .Weight = xlThick
                    End With
                    
                End If
            
            End With
            
        Next
    
End With

Application.ScreenUpdating = 1

End Sub

Perfection, Thanks so much, I will be back when I have other questions, this site is AWESOME.........