Adding a border to a variable range

[RobertSi]

For i = 1 To 1000
If Sheets("Income List").Range("A" & i + 2) <> blank Then
Range("A1:N&i").Borders.LineStyle = xlContinuous
End If
Next

I have also tried

For i = 1 To 1000
If Sheets("Income List").Range("A" & i + 2) <> blank Then
Range("A1:N"&i).Borders.LineStyle = xlContinuous
End If
Next

This is what I want to do but I'm unsure of how to accomplish what I want. There is code that populates a list and then I want the list to get a border around the list. The list has a fixed number of columns but the row numbers will vary and therefore I was hoping the above code would work but unfortunately not.

Any help would be great thanks

 

[Norie]

Perhaps.

With Sheets("Income List")
    .Range("A3:N" & .Range("A" & Rows.Count).End(xlUp).Row).Borders.LineStyle = xlContinuous
End With

 

[RobertSi]

Thanks that did the trick