Problema con un código de Visual basic en Excel

Tengo un problema con el siguiente código; no entiendo cuál es su función en la macro que me han pasado y me da error al intentar compilar.

    Sheets("PEDIDOS").Select
    Cells.Select
    Selection.AutoFilter
    ActiveWorkbook.Worksheets("PEDIDOS").AutoFilter.Sort.SortFields.Add Key:= _
        Range("F1:F68"), SortOn:=xlSortOnValues, Order:=xlDescending, DataOption _
        :=xlSortNormal
    With ActiveWorkbook.Worksheets("PEDIDOS").AutoFilter.Sort
        .Header = xlYes
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With