concise code for top border (thin) and double bottom line thick

[daveyc18]

the macro recorder spits out some chunky code
looking to do it for
range ("a1:d1")

 

[John_w]

    With ActiveSheet.Range("A1:D1")
        With .Borders(xlEdgeTop)
            .LineStyle = xlContinuous
            .Weight = xlThin
        End With
        With .Borders(xlEdgeBottom)
            .LineStyle = xlDouble
            .Weight = xlThick
        End With
    End With

 

[Scott Huish]

Sub Border2()
With Range("A1:D1").Borders
    With .Item(8): .LineStyle = 1: .Weight = 2: End With
    With .Item(9): .LineStyle = -4119: .Weight = 4: End With
End With
End Sub

Similar to John_w's but with numerical values and consolidating the lines.