Sub zooquest()

    Selection.AutoFilter
    ActiveSheet.Range("$A$1:$A$1337").AutoFilter Field:=1, Criteria1:= _
        "=*ENTER_MINI_GAME*", Operator:=xlAnd
    Columns("A:A").Select
    ActiveWindow.SmallScroll Down:=-12
    Selection.ClearContents
    Selection.TextToColumns Destination:=Range("A1"), DataType:=xlDelimited, _
        TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=False, _
        Semicolon:=False, Comma:=True, Space:=False, Other:=False, FieldInfo _
        :=Array(Array(1, 1), Array(2, 1), Array(3, 1), Array(4, 1)), TrailingMinusNumbers:= _
        True
    Cells.Select
    Selection.ColumnWidth = 26.01
    ActiveWindow.SmallScroll Down:=-72

    Columns("A:A").Select
    Selection.NumberFormat = "d/m/yyyy h:mm:ss"
    Columns("E:E").Select
    Selection.NumberFormat = "h:mm:ss"
    Range("E2").Select
    ActiveCell.FormulaR1C1 = "=R[1]C[-4]-RC[-4]"
    Range("E2").Select
    Selection.AutoFill Destination:=Range("E2:E1337"), Type:=xlFillDefault
    Range("E2:E1337").Select
    Columns("E:E").Select

    Selection.AutoFilter
    ActiveSheet.Range("$E$1:$E$1337").AutoFilter Field:=1, Criteria1:= _
    ">00:15:00", Operator:=xlAnd
    ActiveWindow.SmallScroll Down:=-36

    Selection.ClearContents

    Selection.Copy
    Columns("F:F").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Application.CutCopyMode = False
    Selection.NumberFormat = "h:mm:ss"
    Selection.AutoFilter
    ActiveWorkbook.Worksheets("mel2_log").AutoFilter.Sort.SortFields.Clear
    ActiveWorkbook.Worksheets("mel2_log").AutoFilter.Sort.SortFields.Add Key:= _
        Range("F1:F1337"), SortOn:=xlSortOnValues, Order:=xlDescending, DataOption _
        :=xlSortNormal
    With ActiveWorkbook.Worksheets("mel2_log").AutoFilter.Sort
        .Header = xlYes
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With

    Range("G2").Select
    ActiveCell.FormulaR1C1 = "=SUM(R2C6:RC[-1])"
    Range("G2").Select
    Selection.AutoFill Destination:=Range("G2:G1337"), Type:=xlFillDefault
    Range("G2:G1337").Select

End Sub