Draw lines with column A with variable row quantities vba

[Alpacino]

Does anyone know how to select last row in column and draw lines around column all way to row.
E.g column A want to draw lines from row 1 to 56

 

[VoG]

Like this?

Sub Brd()
Dim LR As Long
LR = Range("A" & Rows.Count).End(xlUp).Row
Range("A1:A" & LR).Borders.Weight = xlMedium
End Sub

 

[Alpacino]

Cool thanks