Border code help.

[EXLent]

I have a code here that partially work.
I like to have border for the columns.
Also like borders for rows as a group, not all.
Coding will delete/refresh because list gets updated.

Sub Button1_Click()
    Range("A3").Select
    x = Selection.Value
    myLastRow = Selection.End(xlDown).Row + 1
    Range("A3:A" & myLastRow).Select
        Selection.Borders(xlDiagonalDown).LineStyle = xlNone
        Selection.Borders(xlDiagonalUp).LineStyle = xlNone
        Selection.Borders(xlEdgeLeft).LineStyle = xlNone
        Selection.Borders(xlEdgeTop).LineStyle = xlNone
        Selection.Borders(xlEdgeBottom).LineStyle = xlNone
        Selection.Borders(xlEdgeRight).LineStyle = xlNone
        Selection.Borders(xlInsideVertical).LineStyle = xlNone
        Selection.Borders(xlInsideHorizontal).LineStyle = xlNone
    
    For Each cell In Selection
        If cell.Value = x Then
            'nothing
        Else
            With cell.Offset(-1, 0).Borders(xlEdgeBottom)
                .LineStyle = xlContinuous
                .ColorIndex = 0
                .TintAndShade = 0
                .Weight = xlThin
            End With
            x = cell.Value
        End If
    Next cell
End Sub