His Easwara,

It can be done with something like this.

Sub Top5toNew()
Sheets("Sheet1").Range("a1:a10").Select
Selection.Sort Key1:=Range("A2"), Order1:=xlAscending
Range("a1:a5").Copy
Windows("second.xls").Activate
Selection.PasteSpecial Paste:=xlPasteValues
End Sub

Regards,
P

--
patrickcairn
-----------------------------------------------------------------------
patrickcairns's Profile: http://www.excelforum.com/member.php...fo&userid=3179
View this thread: http://www.excelforum.com/showthread.php?threadid=51521