adding borders between data changes

[Legacy 169300]

Is there a way to conditionally format a sheet to add a thick border between data changes? I have to put a border between each district in a report and it's very time consuming to have to manually do it.

 

[John Davis]

Is there a way to conditionally format a sheet to add a thick border between data changes? I have to put a border between each district in a report and it's very time consuming to have to manually do it.

Would this macro be of any help?

Sub jerven()
Dim i As Long
Dim lr As Long

lr = Cells(Rows.Count, 1).End(xlUp).Row

For i = lr To 2 Step -1

    If Range("A" & i).Value <> Range("A" & i).Offset(1, 0).Value Then
        
        Range("A" & i).Offset(1, 0).Select
            
            With Selection.Borders(xlEdgeTop)
                .LineStyle = xlContinuous
                .Weight = xlMedium
                .ColorIndex = xlAutomatic
            End With
    
    End If
    
Next i

End Sub