Hi,

Right click your sheet tab, view code and paste this in and run it

Sub Marine()
Dim MyRange As Range
lastrow = Cells(Rows.Count, "A").End(xlUp).Row
Set MyRange = Range("A1:A" & lastrow)
For Each c In MyRange
If c.Value < c.Offset(1, 0).Value Then
Set c = c.Resize(, 4) '4 columns change to suit
With c.Borders(xlEdgeBottom)
.LineStyle = xlContinuous
.Weight = xlMedium
End With

End If
Next
End Sub

Mike

" wrote:

I have a spread sheet logging production on 3 shifts. I need to
automatically draw a line in the sheet every time the shift changes
like this

A B C D
Shift Part No Qty shift total
0
a ive 0533 23
a ive 9080 45
a ive 4838 13 81
b ive 4838 45
b ive 9937 23 68
c ive 9937 47
c ive 9937 23
c rvi 1715 23
c rvi 1715 25 118
a rvi 1715 13
a rvi 1715 15 28
b rvi 0444 35
b ive 7661 23
b ive 7661 14 72

A line under all 4 columns everytime the entry in col A differs from
the previous one i.e. when the shift changes

Thanks
Martin