Sorting a sheet A-Z, based on specific column

Hi there,

I'm trying to add a sorting A-Z feature to a current macro a member of this group helped me with. But haven't been able to do it on my own. I need to sort A-Z based on column C. Current code takes care of finding/deleting unwanted data, but I still need the sort part. Attached is a sample sheet. This is the code I currently have:


Sub CLEAN_UP()
Dim r As Range, x As Range, ff As String, e
For Each e In Array("Decimals", "Photo", "ZZ", "Parts", "Hold")
Set r = Cells.Find(e, , , 2)
If Not r Is Nothing Then
ff = r.Address
If x Is Nothing Then Set x = r
Do
Set x = Union(x, r)
Set r = Cells.FindNext(r)
Loop Until ff = r.Address
End If
Next
If Not x Is Nothing Then x.Delete xlShiftToLeft

Cells.EntireColumn.AutoFit

Range("A1").Select

End Sub


Thanks!

See if this will work for you.

Hi Logit,

Thank you so much for your help. I appreciate the time you took to help me with this. The code worked as desired.

David