Putting a boarder around newly entered Row

Hi

I would like to put a boarder around all the cells populated in a row, based on an update provided by a user input form. I've generated the following code from creating a Macro, which will do the required boarded but is of course limited to the range which pre entered in the Macro.

1. Is this the best way to achive my requirement, was going to attach this code to the Put command within the user form, based on being able to set the range to the row and cells being entered.

2. Is it possible to change the range on this code to the range of the cells being added?

Point to note:

The input form mearly looks for the next empty row to populate does not know which row the data will be added to.

Code from Macro:

    Range("A7:E7").Select
    Selection.Borders(xlDiagonalDown).LineStyle = xlNone
    Selection.Borders(xlDiagonalUp).LineStyle = xlNone
    With Selection.Borders(xlEdgeLeft)
        .LineStyle = xlContinuous
        .Weight = xlThin
        .ColorIndex = xlAutomatic
    End With
    With Selection.Borders(xlEdgeTop)
        .LineStyle = xlContinuous
        .Weight = xlThin
        .ColorIndex = xlAutomatic
    End With
    With Selection.Borders(xlEdgeBottom)
        .LineStyle = xlContinuous
        .Weight = xlThin
        .ColorIndex = xlAutomatic
    End With
    With Selection.Borders(xlEdgeRight)
        .LineStyle = xlContinuous
        .Weight = xlThin
        .ColorIndex = xlAutomatic
    End With
    With Selection.Borders(xlInsideVertical)
        .LineStyle = xlContinuous
        .Weight = xlThin
        .ColorIndex = xlAutomatic
    End With
    With Selection.Borders(xlInsideHorizontal)
        .LineStyle = xlContinuous
        .Weight = xlThin
        .ColorIndex = xlAutomatic
    End With
    Range("A8").Select

Many thanks

David