Excel Macro Border Issue

I have what seems to be a simple addition to an excel macro, but I can't get it to work to save my life. I'd like to add one additional cycle to this borders macro that adds a double bottom border and a single top border for financial subtotals. Can anyone help me add it as rotation in this cycle?

Thank you!

Sub CycleBd()
With Selection
If .Borders.LineStyle = xlNone Then
.Borders(xlEdgeBottom).Weight = xlThin
ElseIf .Borders(xlEdgeBottom).Weight = xlThin And _
.Borders(xlEdgeTop).LineStyle = xlNone Then
.Borders.Weight = xlThin
ElseIf .Borders.Weight = xlThin Then
.Borders.LineStyle = xlNone 'Clear All
.BorderAround colorIndex:=xlAutomatic, Weight:=xlThick
Else
.Borders.LineStyle = xlNone 'Clear All
End If
End With
End Sub

Every attempt I've tried has no result and it defeaults to clearing borders.

I believe this is what you're trying to do, add a 4th 'cycle'. It only checks if the top border is xlThick for conciseness, but you might need to change that if you add more 'cycles' in the future.

Sub CycleBd()
With Selection
If .Borders.LineStyle = xlNone Then
.Borders(xlEdgeBottom).Weight = xlThin
ElseIf .Borders(xlEdgeBottom).Weight = xlThin And _
.Borders(xlEdgeTop).LineStyle = xlNone Then
.Borders.Weight = xlThin
ElseIf .Borders.Weight = xlThin Then
.Borders.LineStyle = xlNone 'Clear All
.BorderAround ColorIndex:=xlAutomatic, Weight:=xlThick
ElseIf .Borders(xlEdgeTop).Weight = xlThick Then
.Borders.LineStyle = xlNone 'Clear All
.Borders(xlEdgeBottom).LineStyle = xlDouble
.Borders(xlEdgeTop).Weight = xlThin
Else
.Borders.LineStyle = xlNone 'Clear All
End If
End With
End Sub

I'd also add that you can add those specific styles to the quick access toolbar, so you wouldn't have to cycle through them.

The worksheet data structure is unclear. The provided code shows how to configure a double line on top border of total line.

Sub SetBorders()
    Dim rng As Range
    Set rng = ActiveSheet.UsedRange
    rng.Borders.LineStyle = xlNone
    rng.Borders.LineStyle = xlContinuous
    rng.BorderAround ColorIndex:=xlAutomatic, Weight:=xlThick
    rng.Rows(rng.Rows.Count - 1).Borders(xlEdgeBottom).LineStyle = xlDouble
End Sub