Sort Data for duplicates

[Guest]

I would like some code that will sort my data based on column B. I do not
want to delete the duplicates, just have them togetherfor this macro.

I would like a seperate macro just to delte the dups based on column B

Thanks.
I want to see the steps for future improvement in the code

 

[Guest]

Already added to your last post...

Public Sub SortStuff()
Dim wks As Worksheet
Dim rng As Range

Set wks = ActiveSheet
Set rng = wks.Cells

rng.Sort Key1:=wks.Range("B2"), Order1:=xlAscending, Header:=xlYes

Set wks = Nothing
Set rng = Nothing
End Sub

 

[Guest]

Thanks

Already added to your last post...

Public Sub SortStuff()
Dim wks As Worksheet
Dim rng As Range

Set wks = ActiveSheet
Set rng = wks.Cells

rng.Sort Key1:=wks.Range("B2"), Order1:=xlAscending, Header:=xlYes

Set wks = Nothing
Set rng = Nothing
End Sub