Sub Сортировка(ByVal ИмяЛиста As String)
    Dim ДиапазонТаблицы As Range
Set ДиапазонТаблицы = Worksheets(ИмяЛиста).Range("O3").CurrentRegion
    With Worksheets(ИмяЛиста).Sort
        .SortFields.Clear
        .SortFields.Add Key:=ДиапазонТаблицы.Columns(16), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
        .SortFields.Add Key:=ДиапазонТаблицы.Columns(17), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
        .SortFields.Add Key:=ДиапазонТаблицы.Columns(18), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
        .SortFields.Add Key:=ДиапазонТаблицы.Columns(15), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
        .SetRange ДиапазонТаблицы '.SetRange ActiveSheet.UsedRange ///.SetRange Range("A1").CurrentRegion
        .Orientation = xlSortRows 'XlSortOrientation (xlSortRows, xlSortColumns, xlTopToBottom)Ориентация сортировки
        .Header = xlNo 'Задает, содержит ли первая строка заголовочную информацию; по умолчанию используется значение xlNo; если нужно, чтобы Excel определил это самостоятельно, укажите xlGuess
        .MatchCase = False 'True - сортировка с учетом регистра букв, False - без учета; для сводных таблиц не используется
        .SortMethod = xlPinYin 'Тип сортировки.Некоторые из этих констант могут быть недоступны в зависимости от поддержки языков например, "Английский (США)"), выбранных или установленных. Может быть одно из следующих значений XlSortMethod: 1)xlStroke.Сортировка по количеству штрихов в каждом знаке. 2)xlPinYin.Порядок сортировки для символов, основанный на фонетике китайского языка
        .Apply '/**//*//**//* тут  выдает ошибку
    End With
End Sub