Adding row with border

[Thehunk71]

have a sheet with large amounts of data trying to add a row with a border or double line when the series of values change in column a.
Here is what i have and it works great for adding the row but i cant figure out how to add the border or the double line.
Thanks for your help!

With Sheets("Consolidate")
lr = .Range("A" & .Rows.Count).End(xlUp).Row
For i = lr To 2 Step -1
If Len(.Range("A" & i).Value) > 0 And Len(.Range("A" & i - 1).Value) > 0 Then
If .Range("A" & i).Value <> .Range("A" & i - 1).Value Then
.Rows(i).Insert Shift:=xlDown
End If
End If
Next
End With

 

[mrshl9898]

How's this?

Just change the Columns as required

With Sheets("Consolidate")lr = .Range("A" & .Rows.Count).End(xlUp).Row
For i = lr To 2 Step -1
If Len(.Range("A" & i).Value) > 0 And Len(.Range("A" & i - 1).Value) > 0 Then
If .Range("A" & i).Value <> .Range("A" & i - 1).Value Then
.Rows(i).Insert Shift:=xlDown
.Rows(i - 1).Columns("A:B").Select
    With Selection.Borders(xlEdgeBottom)
        .LineStyle = xlDouble
        .ColorIndex = 0
        .TintAndShade = 0
    End With
End If
End If
Next
End With

 

[JLGWhiz]

Does this help?

Sub SetRangeBorder() 
    With Worksheets("Sheet1").Range("B2").Borders(xlEdgeBottom) 'you can resize the range to your needs.
       .LineStyle = xlContinuous 
       .Weight = xlThick 
       .ColorIndex = xlAutomatic
    End With 
    With Worksheets("Sheet1").Range("B3").Borders(xlEdgeBottom) 
       .LineStyle = xlDouble 
       .Weight = xlMedium 
       .ColorIndex = xlAutomatic 
 End With 
End Sub

 

[Thehunk71]

AWSOME! Thank you both!!
that has me going in a direction. I will try to figure the rest out on my own!

 

[JLGWhiz]

Happy to assist,
regards, JLG