сортировка по возрастанию и убывавнию

[Randy.Mandy]

Ребят, подскажите,пожалуйста,как отсортировать данные по столбцу Date по возрастанию, чтобы все данные остальных столбцов в файле также отсортировались.
Примечание: столбец Date может быть не третьим по счету. Лучше привязаться к имени столбца, оставшихся столбцов тоже может быть больше или меньше.
Записанный макрос сортировки по-моему уж слишком содержит много лишнего.

Файл приложил.

[Казанский]

Пробуйте

Sub bb()
Dim c As Range
Set c = Rows(1).Find("Date", , xlValues, xlWhole)
If c Is Nothing Then
    MsgBox "Ячейка Date не найдена", vbCritical
Else
    c.Sort c, xlAscending, header:=xlYes
End If
End Sub

[Randy.Mandy]

Спасибо!
а я вот так переделал записанный макрос:

Sheets("Лист1").Select
Cells(r_end + 1, 1).FormulaR1C1 = "=MATCH(" & Chr(34) & "Date" & Chr(34) & ",R1,0)"
date = Cells(row_end + 1, 1).Value
r_end = Cells(ActiveSheet.Rows.Count, 1).End(xlUp).Row
Range(Cells(2, data), Cells(r_end, data)).Select
    ActiveWorkbook.Worksheets("Лист1").Sort.SortFields.Clear
    ActiveWorkbook.Worksheets("Лист1").Sort.SortFields.Add Key:=Cells(2, data), _
        SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
    With ActiveWorkbook.Worksheets("Лист1").Sort
        .SetRange Cells
        .Header = xlNo
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With

Но Ваш вариант куда лучше!!

[Randy.Mandy]

Казанский, *простите, не знаю, как Вас зовут.*

Скажите, пожалуйста, на всякий случай, какой участок кода заменить на то, чтобы сортировка осуществлялась по убыванию?

[Казанский]

c.Sort c, xlDescending, header:=xlYes

[Randy.Mandy]

Спасибо огромное!