How to sort chains and add a string?

Thank you so much it works!!!
Can this line be changed to work with any sheet name
Set Wks = Worksheets("Sheet1")