Sub Makro8()
'
' Makro8 Makro
'
' Klawisz skrótu: Ctrl+f
'
    Sheets.Add After:=ActiveSheet
    ActiveCell.FormulaR1C1 = "=RANDBETWEEN(1,30)"
    Range("A1").Select
    Selection.AutoFill Destination:=Range("A1:A15"), Type:=xlFillDefault
    Range("A1:A15").Select
    Selection.Copy
    Range("A1").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Range("C1").Select
    Application.CutCopyMode = False
    ActiveCell.FormulaR1C1 = "1"
    Range("C2").Select
    ActiveCell.FormulaR1C1 = "2"
    Range("C3").Select
    ActiveCell.FormulaR1C1 = "3"
    Range("C1:C3").Select
    Selection.AutoFill Destination:=Range("C1:C30"), Type:=xlFillDefault
    Range("C1:C30").Select
    Range("D1").Select
    ActiveCell.FormulaR1C1 = "=FREQUENCY(RC[-3]:R[14]C[-3],RC[-1]:R[29]C[-1])"
    Range("D1:D30").Select
    Selection.FormulaArray = "=FREQUENCY(RC[-3]:R[14]C[-3],RC[-1]:R[29]C[-1])"
    Range("F1").Select
    ActiveCell.FormulaR1C1 = "=MAX(RC[-2]:R[29]C[-2])"
    Range("H1").Select
    ActiveCell.FormulaR1C1 = "=IF(RC[-4]=R1C6,RC[-5],0)"
    Range("H1").Select
    Selection.AutoFill Destination:=Range("H1:H30"), Type:=xlFillDefault
    Range("H1:H30").Select
    Range("C1:D30").Select
    ActiveSheet.Shapes.AddChart2(251, xlPie).Select
    ActiveChart.SetSourceData Source:=Range("Arkusz11!$C$1:$D$30")
    ActiveChart.FullSeriesCollection(1).Select
    Selection.Explosion = 0
    ActiveChart.ChartArea.Select
    ActiveSheet.Shapes("Wykres 1").IncrementLeft -86.25
    ActiveSheet.Shapes("Wykres 1").IncrementTop 273
End Sub