Setting table borders.

setTableBorders.bas

Sub settingTblBorders()

ActiveSheet.Cells.Clear

With Selection.Borders(xlEdgeTop)
    .LineStyle = xlContinuous
    .TintAndShade = 0
    .Weight = xlThin
End With
With Selection.Borders(xlEdgeBottom)
    .LineStyle = xlContinuous
    .TintAndShade = 0
    .Weight = xlThin
End With
With Selection.Borders(xlInsideHorizontal)
    .LineStyle = xlContinuous
    .TintAndShade = 0
    .Weight = xlHairline
End With

Dim r As Long
r = Selection.Row - 1


With Rows(r).Font
    .Bold = True
    .Size = 8
End With
    
End Sub