If the original is in columns A & B & C, then first copy them to D & E & F
and run:

Sub ordinate()
Set r1 = Intersect(ActiveSheet.UsedRange, Range("D:F"))
For i = 4 To 6
n = Cells(Rows.Count, i).End(xlUp).Row
For j = n To 1 Step -1
v = Cells(j, i).Value
If Application.WorksheetFunction.CountIf(r1, v) 1 Then
Cells(j, i).Delete Shift:=xlUp
End If
Next
Next
End Sub

--
Gary''s Student
gsnu200710


"elaine" wrote:

i was thinking whether theres a way to display in the nex available
column. when that column is full, then display on the next available
column etc.