.Range("H" & n + 3).Borders(xlEdgeRight).LineStyle = xlDouble
.Range("H" & n + 3).Borders(xlEdgeLeft).LineStyle = xlDouble
.Range("H" & n + 3).Borders(xlEdgeTop).LineStyle = xlDouble
.Range("H" & n + 3).Borders(xlEdgeBottom).LineStyle = xlContinuous
.Range("H" & n + 4).Borders(xlEdgeRight).LineStyle = xlDouble
.Range("H" & n + 4).Borders(xlEdgeLeft).LineStyle = xlDouble
.Range("H" & n + 4).Borders(xlEdgeBottom).LineStyle = xlDouble
.Range("O" & n + 3).Borders(xlEdgeRight).LineStyle = xlDouble
.Range("O" & n + 3).Borders(xlEdgeLeft).LineStyle = xlDouble
.Range("O" & n + 3).Borders(xlEdgeTop).LineStyle = xlDouble
.Range("O" & n + 3).Borders(xlEdgeBottom).LineStyle = xlContinuous
.Range("O" & n + 4).Borders(xlEdgeRight).LineStyle = xlDouble
.Range("O" & n + 4).Borders(xlEdgeLeft).LineStyle = xlDouble
.Range("O" & n + 4).Borders(xlEdgeBottom).LineStyle = xlDouble
.Range("L" & n + 4).Borders.LineStyle = xlDouble