How to do a sorting in VBA? - vba

Question

I have a table with header and data in columns from A to D with changing row number (number of rows is more than 66800). I'd like to sort data from Z to A order by column C.
There are a lot of different solutions in VBA on internet, but none worked correctly for me.
My code gives me an error:
Sub SortDescending()
Dim lRow As Long
Dim lCol As Long
lRow = Sheets("atm_hh").Cells(Rows.Count, 1).End(xlUp).Row
lCol = Sheets("atm_hh").Cells(1, Columns.Count).End(xlToLeft).Column
With Sheets("atm_hh")
.Select
.Range("A2:" & Cells(lRow, lCol).Address).Sort Key1:=Range("C2"), _
Order1:=xlDescending, _
Header:=xlGuess, _
OrderCustom:=1, _
MatchCase:=False, _
Orientation:=xlTopToBottom
End With
End Sub

Answer 1

try
Sub SortDescending()
Dim sh As Worksheet
Set sh = Sheets("atm_hh")
Dim lRow As Long
Dim lCol As Long
lRow = sh.Cells(Rows.Count, 1).End(xlUp).Row
lCol = sh.Cells(1, Columns.Count).End(xlToLeft).Column
Dim cell As Range
For Each cell In sh.Range("C2:C" & lRow)
cell = WorksheetFunction.Substitute(cell, ",", ".")
Next
Columns("C:C").NumberFormat = "0.0"
sh.Cells.AutoFilter
sh.AutoFilter.Sort.SortFields.Clear
sh.AutoFilter.Sort.SortFields.Add Key:=Range("C1:C" & lRow), _
SortOn:=xlSortOnValues, Order:=xlDescending, DataOption:=xlSortNormal
With sh.AutoFilter.Sort
.Header = xlYes
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With
sh.AutoFilterMode = False
End Sub