Rightly or wrongly, my immediate approach is to create a VBA macro.
<pre>
Sub shifter()
Range(“a1”).End(xlDown).Select
For arow = ActiveCell.Row To 2 Step -1
If Cells(arow, 1).Value = Cells(arow – 1, 1).Value Then
Cells(arow – 1, 4).Value = Cells(arow, 2).Value
Cells(arow – 1, 5).Value = Cells(arow, 3).Value
Cells(arow, 1).EntireRow.Delete
End If
Next
End Sub
</pre>
This would have to be extended if you had blank lines in your data but it does the job otherwise.
Bob
Discuss This Question: 4  Replies