Excel new rows don't have column border

[Gulsath]

Hello,

I have an excel spreadsheet connected to live data. The rows will constantly change and when new rows get added, the right column border isn't there. Is there a way I can get around this. I won't know the end row to hard code a range, but basically just want new rows to get a right column border on A##.

Thanks in advance,

Jason Silva

[patel45]

need your code

[JOHN H. DAVIS]

patel45 is right you should provide your code. See if this helps.

Sub Gulsath()
With Range("A" & Rows.count).End(3)(1).Borders(xlEdgeRight)
    .LineStyle = xlContinuous
    .Weight = xlMedium
    .ColorIndex = xlAutomatic
End With
End Sub

[Gulsath]

Thanks guys, I have this right now...

Sub AddColumnBorder()

Dim rw As Range
Dim cCell

For Each rw In Range("A5:A50000")
If rw.Value <> "Grand Total" Then
rw.Cells.Borders(xlEdgeRight).LineStyle = xlContinuous
End If
Next

End Sub

But it doesn't stop at Grand Total, it goes right down to 50,000. In my case it should have stopped at A350. John, the blurb didn't put any borders in but thank you for posting it.

[AB33]

For e.g

rw.Resize(, 15).Borders(xlEdgeRight).LineStyle = xlContinuous

Goes form A to O

[AB33]

Please use code tags with your code.

How many "Grand Total" do you have?

This line is wrong.

 rw.Cells.Borders(xlEdgeRight).LineStyle = xlContinuous

Sub test1()
Dim rw As Range
    For Each rw In Range("A5", Range("A" & Rows.Count).End(xlUp))
        If rw.Value <> "Grand Total" Then
            rw.Cells.Borders(xlEdgeRight).LineStyle = xlContinuous
        End If
     Next
End Sub

[Gulsath]

k, I tried it, it worked perfect, thanks, on the next....

[Gulsath]

Just the one Grand Total, will try your suggestion in a bit, got some calls to jump on.

[AB33]

Use this code.

Sub test1()
Dim rw As Range, LR&
    LR = Cells.Find("Grand Total", , , , xlByRows, xlPrevious).Row
    Cells(LR, 1).Resize(, 15).Borders(xlEdgeRight).LineStyle = xlContinuous
End Sub