Hi Experts,

Could you please suggest me where I am wrong regarding the below recorded vba code. the below code is to sort data by black colour at bottom. By doing it manually its works perfectly , however by recording not getting the desired results. Please help.

Sub Macro2()
'
' Macro2 Macro
'

'
'Columns("A:E").Select
ActiveWorkbook.Worksheets("Sheet1").Sort.SortFields.Clear
ActiveWorkbook.Worksheets("Sheet1").Sort.SortFields.Add(Range("A2:A22"), _
xlSortOnFontColor, xlDescending, , xlSortNormal).SortOnValue.Color = RGB(0, 0, 0)

With ActiveWorkbook.Worksheets("Sheet1").Sort
.SetRange Range("A1:E22")
.Header = xlYes
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With
End Sub