Sub MacroFormats()
With Range("H14:H15,L15,O14:O15")
With .Interior
.Pattern = xlSolid
.PatternColorIndex = xlAutomatic
.ThemeColor = xlThemeColorDark1
.TintAndShade = -4.99893185216834E-02
.PatternTintAndShade = 0
End With
With .Borders(xlEdgeLeft)
.LineStyle = xlDouble
End With
With .Borders(xlEdgeTop)
.LineStyle = xlDouble
End With
With .Borders(xlEdgeBottom)
.LineStyle = xlDouble
End With
With .Borders(xlEdgeRight)
.LineStyle = xlDouble
.ColorIndex = xlAutomatic
.TintAndShade = 0
.Weight = xlThick
End With
.Borders(xlInsideVertical).LineStyle = xlNone
With .Borders(xlInsideHorizontal)
.LineStyle = xlContinuous
End With
End With
End Sub