Hi,
This puts a border above and below the cell you are on.
Sub Macro1()
With Selection.Borders(xlEdgeTop)
.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = xlAutomatic
End With
With Selection.Borders(xlEdgeBottom)
.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = xlAutomatic
End With
End Sub


"teresa" wrote:

Hi, I have lines of data which vary dynamically, i.e. could be 5,7,11 lines
etc.

At the bottom of the last line, I always need a border and a Sum Amount,
help is greatly appreciated