How is this?

With [B65536].End(xlUp).Offset(1, 0)
.Value = "Total"
.Offset(0, 1).Resize(1, 13).Borders(xlEdgeBottom).Color = RGB(255, 0, 0)
.Offset(0, 1).Resize(1, 13).Borders.LineStyle = xlDouble
End With


Regards
Robert McCurdy

"AGnes" wrote in message ...
I want to find the last row in a worksheet, then add the text "Total" under
column B, and add a border from column C thru O:

..Borders(xlEdgeBottom)
..LineStyle = xlDouble

How can I select the range?

-Agnes