Sub Forex()
'
' Forex Macro
'

'
    recCount = Range("O65536").End(xlUp).Row

    Columns("O:O").EntireColumn.Insert
    Columns("O:O").EntireColumn.Insert

    Range("O5").Select
    ActiveCell.FormulaR1C1 = "Pip"
    
    Range("P5").Select
    ActiveCell.FormulaR1C1 = "System"
   
    Range("O6").Select
    ActiveCell.Formula = "=IF(AND(G6<20,D6=""buy""),(K6-G6)*10000,IF(AND(G6<20,D6=""sell""),( G6-K6)*10000,IF(AND(G6>20,D6=""buy""),(K6-G6)*100,(G6-K6)*100)))"
    Range("P6").Select
    ActiveCell.Formula = "=IF(ISNUMBER(SEARCH(""_1133_"",Q6)),""RAS ExtremeChan"",IF(ISNUMBER(SEARCH(""_11359_"",Q6)),""RAS Algo"",IF(ISNUMBER(SEARCH(""FapTurbo"",Q6)),""FapTurbo"",IF(ISNUMBER(SEARCH(""expert advisor template"",Q6)),""Psuedo"",IF(ISNUMBER(SEARCH(""PipTurbo"",Q6)),""PipTurbo"",IF(ISNUMBER(SEARCH(""_515_"",Q6)),""RAS TriggerFx"",IF(ISNUMBER(SEARCH(""fxpt"",Q6)),""fxpt"",IF(ISNUMBER(SEARCH(""RoboMiner"",Q6)),""RoboMiner"",IF(ISNUMBER(SEARCH(""_891_"",Q6)),""RAS EuroTrader"",IF(ISNUMBER(SEARCH(""0"",Q6)),""vForce"",IF(ISNUMBER(SEARCH(""[tp]"",Q6)),""Sky FX"",IF(ISNUMBER(SEARCH(""[sl]"",Q6)),""Sky FX"",IF(ISNUMBER(SEARCH(""complete"",Q6)),""SkyFX"",""other"")))))))))))))"
    Range("O6:P6").Select
    Selection.AutoFill Destination:=Range("O6:P" & recCount), Type:=xlFillDefault
    Range("O6:P" & recCount).Select
    

    Rows("5:" & recCount).Select
    Range("A" & recCount).Activate
    
    ActiveWorkbook.ActiveSheet.Sort.SortFields.Clear
    
    ActiveWorkbook.ActiveSheet.Sort.SortFields.Add Key:= _
        Range("P6:P" & recCount), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption _
        :=xlSortNormal
    ActiveWorkbook.ActiveSheet.Sort.SortFields.Add Key:= _
        Range("F6:F" & recCount), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption _
        :=xlSortNormal
        
    With ActiveWorkbook.ActiveSheet.Sort
        .SetRange Range("A5:Q" & recCount)
        .Header = xlYes
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With
    
    Selection.Subtotal GroupBy:=16, Function:=xlSum, TotalList:=Array(14, 15) _
        , Replace:=True, PageBreaks:=False, SummaryBelowData:=True
    
    recCount = Range("O65536").End(xlUp).Row
      Rows("5:" & recCount).Select
    Range("A" & recCount).Activate
    
    Selection.Subtotal GroupBy:=6, Function:=xlSum, TotalList:=Array(14, 15), _
        Replace:=False, PageBreaks:=False, SummaryBelowData:=True
    ActiveSheet.Outline.ShowLevels RowLevels:=2
    
    Columns("P:P").ColumnWidth = 30
    Columns("F:F").ColumnWidth = 20
End Sub