BorderAround for Range (lastRow)

Hi guys,

I'm hoping you can help, currently I'm using the below but I know it could be made a shorter code:

Cells(LastRow + 1, 1).BorderAround Weight:=xlThin

The above code is part of a user form which copies and pastes data into the next available line in my sheet. However, I want it to also add the border formatting from Column index 1 - 53. I'm sure there's a way that I don't have to use 53 lines of code to get this to work?

Many thanks for your time.

Not sure what you are trying to do:

Const LastRow As Long = 10
Cells(LastRow + 1, 1).BorderAround Weight:=xlThin

Dim lLR As Long
lLR = Cells(Rows.Count, 1).End(xlUp).Row
Cells(lLR + 1, 1).BorderAround Weight:=xlThin

Regards, TMS

Rows(LastRow + 1).Resize(, 53).Borders.Weight = xlThin

Sorry, misunderstood:

Const LastRow As Long = 10
Range(Cells(LastRow + 1, 1), Cells(LastRow + 1, 53)).BorderAround Weight:=xlThin

Dim lLR As Long
lLR = Cells(Rows.Count, 1).End(xlUp).Row
Range(Cells(lLR + 1, 1), Cells(lLR + 1, 53)).BorderAround Weight:=xlThin