Poner BORDES a un rango de celdas usando macro

Despues de insertar datos con un UserForm,
despues de insertar datos mi celda activa obviamente es la ultima celda en la que se insertaron datos, y quiero poner los bordes a esos nuevos datos.
TENGO EL SIGUIENTE CODIGO:
ActiveCell.EntireRow.Select
    With Selection.Borders(xlEdgeLeft)
        .LineStyle = xlContinuous
        .Weight = xlThin
    End With
    With Selection.Borders(xlEdgeTop)
        .LineStyle = xlContinuous
        .Weight = xlThin
    End With
    With Selection.Borders(xlEdgeBottom)
        .LineStyle = xlContinuous
        .Weight = xlThin
    End With
    With Selection.Borders(xlEdgeRight)
        .LineStyle = xlContinuous
        .Weight = xlThin
    End With
    With Selection.Borders(xlInsideVertical)
        .LineStyle = xlContinuous
        .Weight = xlThin
    End With
= = = = = = = = = = = = = =  = = = = = = = = = =  = = = = =
El problema esque mis columnas solo llegan de A - AJ
y el codigo anterior me 'bordea' la fila de principio a fin.
alguna solucion para solo 'bordear' de A - AJ en la fila 'x' (fila activa)