How can i sort in seperate Sheet

[Gaurav Walia]

Delhi 5
Bangkok 15
Cairo 6
London 11
Singapore2

What I want is this should order in a separate excel sheet in the order listed below

Bangkok 15
London 11
Cairo 6
Delhi 5
Singapore2

 

[Gaurav Walia]

Sorry there might be duplicates also but i need only one result for delhi and bangkok sorted in order but the value will be same for delhi etc even if duplicates are there.

 

[JackDanIce]

Assuming data below is in sheet1 and you want it placed and then sorted in sheet2, try:

Sub MoveAndSort()
Dim i As Long
With Sheets("Sheet1")
    i = .Range("A" & Rows.Count).End(xlUp).Row
    .Range("A1:B" & i).Copy
End With
With Sheets("Sheet2").Range("A1")
    .PasteSpecial Paste:=xlValues
    .CurrentRegion.Sort Key1:=Range("B1"), Order1:=xlDescending
End With
End Sub

 

[JackDanIce]

My macro again but to remove duplicates and then sort:

Sub MoveAndSort()
Dim i As Long
With Sheets("Sheet1")
    i = .Range("A" & Rows.Count).End(xlUp).Row
    With .Range("A1:B" & i)
        .AdvancedFilter Action:=xlFilterInPlace, unique:=True
        .Copy
    End With
End With
With Sheets("Sheet2")
    .Range("A1").PasteSpecial Paste:=xlValues
    .Range("A1").CurrentRegion.Sort Key1:=Range("B1"), Order1:=xlDescending
End With
Sheets("Sheet1").ShowAllData
End Sub

 

[Gaurav Walia]

It does sort it but how do i remove duplicates

 

[JackDanIce]

Use my second macro suggestion