.Range(
"A2:M"
& .Cells(Rows.Count, 2).
End
(xlUp).Row).
Select
With
Selection.Borders(xlEdgeLeft)
.LineStyle = xlContinuous
.Weight = xlThin
End
With
With
Selection.Borders(xlEdgeTop)
.LineStyle = xlContinuous
End
With
With
Selection.Borders(xlEdgeBottom)
.LineStyle = xlContinuous
End
With
With
Selection.Borders(xlEdgeRight)
.LineStyle = xlContinuous
End
With
With
Selection.Borders(xlInsideVertical)
.LineStyle = xlContinuous
End
With
With
Selection.Borders(xlInsideHorizontal)
.LineStyle = xlContinuous
End
With
.RowHeight = 14.4