Loop Macro to Auto Format Borders

For many of the simple tasks, it is easy to record a macro when we manualy do it first. Then you can re-run the macro with the necessary changes. This is what I did for your requirement. See the code

Sub Macro2()
    Range("A1:F1").Select
    Range(Selection, Selection.End(xlDown)).Select
 '  Selection.Borders(xlDiagonalDown).LineStyle = xlNone
 '  Selection.Borders(xlDiagonalUp).LineStyle = xlNone
    With Selection.Borders(xlEdgeLeft)
        .LineStyle = xlContinuous
'       .ColorIndex = xlAutomatic
'        .TintAndShade = 0
        .Weight = xlThin
    End With
    With Selection.Borders(xlEdgeTop)
        .LineStyle = xlContinuous
'       .ColorIndex = xlAutomatic
'       .TintAndShade = 0
        .Weight = xlThin
    End With
    With Selection.Borders(xlEdgeBottom)
        .LineStyle = xlContinuous
'       .ColorIndex = xlAutomatic
'       .TintAndShade = 0
        .Weight = xlThin
    End With
    With Selection.Borders(xlEdgeRight)
        .LineStyle = xlContinuous
'       .ColorIndex = xlAutomatic
'       .TintAndShade = 0
        .Weight = xlThin
    End With
    With Selection.Borders(xlInsideVertical)
        .LineStyle = xlContinuous
 '      .ColorIndex = xlAutomatic
 '      .TintAndShade = 0
        .Weight = xlThin
    End With
    With Selection.Borders(xlInsideHorizontal)
        .LineStyle = xlContinuous
'       .ColorIndex = xlAutomatic
'       .TintAndShade = 0
        .Weight = xlThin
    End With
End Sub

rgds

johnjohns