Hi all
the below one is my small VBA for extracting UNIQUE in Column M
for the time being i put one error handler
but i want one loop which checks that if value is there in M1 then it should try to paste unique in N1 & so on
means for every error in pasting data it should shift to right column (M, N, O accordingly)


[VBA]Sub unique()
' Keyboard Shortcut: Ctrl+Shift+U
'
On Error GoTo Anand:
Selection.Select
Selection.AdvancedFilter Action:=xlFilterCopy, CopyToRange:=Range("m1" _
), unique:=True
Exit Sub
Anand:
MsgBox "Pl. first Clear the contents of Column M", vbInformation, "Anand M. Bohra"
'Range("B1").Select
End Sub[/VBA]


pl help