Macro to format cells to make bold and bordered

Oh. I didn't see the borders. Use this instead.

Private Sub CommandButton1_Click()
Dim LR As Long, i As Long

LR = Cells(Rows.Count, 1).End(xlUp).Row
For i = 1 To LR
    If Cells(i, 2).Font.Bold Then
        Cells(i, 1).Resize(1, 4).Font.Bold = True
        Cells(i, 3).Resize(1, 2).Borders(xlEdgeTop).Weight = xlThin
    End If
Next i

    Cells(LR, 3).Resize(1, 2).Borders(xlEdgeBottom).LineStyle = xlDouble
End Sub