Private Sub Worksheet_Calculate()
Dim r As Range, coul As Range, c As Range, i As Byte
With Intersect([A1].CurrentRegion.EntireRow, UsedRange)
.Borders.LineStyle = xlNone
For Each r In .Rows
Set coul = Nothing
For Each c In r.Cells
If c.DisplayFormat.Interior.ColorIndex <> xlNone Then Set coul = Union(IIf(coul Is Nothing, c, coul), c)
Next c
If Not coul Is Nothing Then For i = 7 To 10: coul.Borders(i).Weight = xlThin: Next i
Next r
End With
End Sub