Excel VBA Sorting Problem

Thanks for your response. I want to use the code below to sort my columns by searching for columns header first, but the problem is that my headers are in the second row of the sheet and not the first row. Therefore, Header:= xlYes will not work as it will only work for the headers in 1st row. Can you please edit the code below so that I can get the headers to be read in the second column. This will solve my problem as headers will remain fixed and the rest of the data will be sorted in descending order. Thank you so much.

Sub sorting()
Dim col As String, cfind As Range
Worksheets(1).Activate
col = "sku"
Set cfind = Cells.Find(what:=col, lookat:=xlWhole)
ActiveSheet.Cells.Sort key1:=cfind, Header:=xlYes
End Sub

Hello Hassan,

I want to use the code below to sort my columns by searching for columns header first

I'm assuming then that your "SKU" column will never be in the same place (it could be Column C or Column F or Column Z etc.) so try the code amended as follows:-

Sub Sorting()

    Dim acell As Range
    Set acell = Rows(2).Find(What:="sku", LookIn:=xlValues, LookAt:=xlWhole)

ActiveSheet.Range("A2").Sort acell.Offset(1), 2, Header:=xlYes

End Sub

I'm also assuming that your data starts in Column A, Row3.

The code above should sort your data descending.

I hope that this helps.

Cheerio,
vcoolio.