VBA Add border to dynamic rows but static columns

[scotsrule08]

I am needing to add the right border and last row bottom border for a variable set of data. The columns will always have data in columns "A" through "I". Starting with row 27 and ending with a variable row.

Anything would be great. Thank you in advance!

 

[mrshl9898]

How's this working?

Sub AddBorders()


Dim lastrow As Long
Dim ws As Worksheet


Set ws = ActiveSheet


lastrow = ws.Cells(ws.Rows.Count, "A").End(xlUp).Row


    Cells.Borders.LineStyle = xlNone
    
    Range("A1:I" & lastrow).Select
    With Selection.Borders(xlEdgeBottom)
        .LineStyle = xlContinuous
        .ColorIndex = xlAutomatic
        .TintAndShade = 0
        .Weight = xlThin
    End With
    With Selection.Borders(xlEdgeRight)
        .LineStyle = xlContinuous
        .ColorIndex = xlAutomatic
        .TintAndShade = 0
        .Weight = xlThin
    End With


End Sub