搜索列标题并按降序排序

Question

我创建了一个宏以通过搜索标题名称进行排序，但是无法按降序对其进行排序。下面的仅按升序排序。帮我解决降序排序。

Sub sorting() Dim col As String, cfind As Range col = "Cost" Set cfind = Cells.Find(what:=col, lookat:=xlWhole) 'Set rng1 = Range(cfind, cfind.xlDown) ActiveSheet.Cells.Sort key1:=cfind, Header:=xlYes End Sub