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

Thanks for the quick response. I did learn some from this post but I can't figure out how to modify the code to work for my application. I forgot to mention that cells A1-D1 through A#-D# are blank so I want to loop until column E is blank. Columns E and F will always contain data and end on the same row. Thanks