Macro problem

[alex.kyprianou]

Hi all,

I have 2 spreadsheets.

Sheet 1 has 12000 rows of data and 15 columns. One of the columns is
concatenated from 2 others.
Col G Col K Col L
2 Prefix Concat' ID
3 ABC ABC123 123

In sheet 2 Col A , Row 2 - 12000 I have the formula =Sheet1!K2 down to
K12000

I needed to automate this column and delete all duplicates and sort.
So I recorded a macro,

Sub Concatlist()
'
' Concatlist Macro
' Macro recorded 23/04/2004 by alext
'

'
Columns("A:A").Select
Selection.Copy
Columns("B:B").Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone,
SkipBlanks:= _
False, Transpose:=False
Columns("B:B").Select
Selection.Sort Key1:=Range("B1"), Order1:=xlDescending,
Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
End Sub

I have ASAP utilities and used the delete duplicates function, but I
can't see it in the code. The macro runs ok and does everything but
the delete duplicates bit.

Any Ideas or another way around this?

Thanks
Alex