API tools faq
paste
Advertisement
Guest User

Untitled

a guest
Nov 7th, 2018
110
0
Never
Add comment
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
VBScript 46.38 KB | None | 0 0
raw download clone embed print report
  1. Sub please()
  2. '
  3. ' please Macro
  4. ' cleans my data
  5. '
  6.  
  7. '
  8.    Cells.Select
  9.     Range("G9").Activate
  10.     Selection.Columns.AutoFit
  11.     Columns("B:B").Select
  12.     Selection.Insert Shift:=xlToRight
  13.     Selection.Insert Shift:=xlToRight
  14.     Range("D2").Select
  15.     Range("C2").Select
  16.     Application.CutCopyMode = False
  17.     Selection.Cut
  18.     End Sub
  19.  
  20.  Sub Proc1()
  21.     Range("A3").Select
  22.     ActiveSheet.Paste
  23.     Range("E2").Select
  24.     Selection.Cut
  25.     Range("B3").Select
  26.     ActiveSheet.Paste
  27.     Columns("H:H").Select
  28.     Selection.Insert Shift:=xlToRight
  29.     Selection.Insert Shift:=xlToRight
  30.     Range("J2").Select
  31.     Selection.Cut
  32.     Range("H3").Select
  33.     ActiveSheet.Paste
  34.     Range("K2").Select
  35.     Selection.Cut
  36.     Range("I3").Select
  37.     ActiveSheet.Paste
  38.     Cells.Select
  39.     Range("J3").Activate
  40.     Selection.AutoFilter
  41.     ActiveSheet.Range("$A$2:$U$27346").AutoFilter Field:=10, Criteria1:="NI2"
  42.     Range("H5").Select
  43.     ActiveCell.FormulaR1C1 = "=RC[2]"
  44.     Range("H5").Select
  45.     Selection.FillDown
  46.     End Sub
  47.  
  48.  Sub Proc2()
  49.     Range("I5").Select
  50.     ActiveCell.FormulaR1C1 = "=RC[2]"
  51.     Range("I5").Select
  52.     Selection.FillDown
  53.     Range("A5").Select
  54.     ActiveCell.FormulaR1C1 = "=RC[2]"
  55.     Range("A5").Select
  56.     Selection.FillDown
  57.     Range("B5").Select
  58.     ActiveCell.FormulaR1C1 = "=RC[3]"
  59.     Range("B5").Select
  60.     Selection.FillDown
  61.     ActiveSheet.Range("$A$2:$U$27346").AutoFilter Field:=10
  62.     Range("B9").Select
  63.     Selection.End(xlDown).Select
  64.     Range("D24").Select
  65.     Selection.End(xlUp).Select
  66.     Selection.End(xlUp).Select
  67.     Selection.End(xlUp).Select
  68.     Selection.End(xlUp).Select
  69.     Selection.End(xlUp).Select
  70.     Selection.End(xlUp).Select
  71.     Selection.End(xlUp).Select
  72.     Selection.End(xlUp).Select
  73.     Selection.End(xlUp).Select
  74.     Selection.End(xlUp).Select
  75.     Cells.Select
  76.     Range("D3").Activate
  77.     ActiveSheet.Range("$A$2:$U$27346").AutoFilter Field:=2, Criteria1:="0"
  78.     Range("A30").Select
  79.     Selection.End(xlDown).Select
  80.     Selection.End(xlUp).Select
  81.     Range("A30").Select
  82.     Range(Selection, Selection.End(xlDown)).Select
  83.     Selection.ClearContents
  84.     Range("B30").Select
  85.     Range(Selection, Selection.End(xlDown)).Select
  86.     Selection.ClearContents
  87.     Range("C30").Select
  88.     Range(Selection, Selection.End(xlDown)).Select
  89.     Selection.ClearContents
  90.     Range("I30").Select
  91.     Range(Selection, Selection.End(xlDown)).Select
  92.     Selection.ClearContents
  93.     Range("I30").Select
  94.     Selection.AutoFilter
  95.     Selection.AutoFilter
  96.     Selection.AutoFilter
  97.     Range("I11").Select
  98.     Selection.End(xlUp).Select
  99.     Selection.End(xlUp).Select
  100.     Selection.End(xlUp).Select
  101.     Selection.End(xlUp).Select
  102.     Selection.End(xlUp).Select
  103.     Selection.End(xlUp).Select
  104.     Selection.End(xlUp).Select
  105.     Selection.End(xlUp).Select
  106.     Selection.End(xlUp).Select
  107.     Selection.End(xlUp).Select
  108.     Selection.End(xlUp).Select
  109.     Selection.End(xlUp).Select
  110.     Selection.End(xlUp).Select
  111.     Selection.End(xlUp).Select
  112.     Selection.End(xlUp).Select
  113.     Selection.End(xlUp).Select
  114.     Range("J5").Select
  115.     Columns("I:I").EntireColumn.AutoFit
  116.     Cells.Select
  117.     Range("J8").Activate
  118.     Selection.AutoFilter
  119.     Selection.Copy
  120.     Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
  121.         :=False, Transpose:=False
  122.     ActiveSheet.Range("$A$2:$U$27346").AutoFilter Field:=10, Criteria1:="NI2"
  123.     Range("J5").Select
  124.     Range(Selection, Selection.End(xlDown)).Select
  125.     Application.CutCopyMode = False
  126.     Selection.ClearContents
  127.     End Sub
  128.  
  129.  Sub Proc3()
  130.     Range("K5").Select
  131.     Range(Selection, Selection.End(xlDown)).Select
  132.     Range(Selection, Selection.End(xlDown)).Select
  133.     Range(Selection, Selection.End(xlDown)).Select
  134.     Range(Selection, Selection.End(xlDown)).Select
  135.     Range(Selection, Selection.End(xlDown)).Select
  136.     Range(Selection, Selection.End(xlDown)).Select
  137.     Range(Selection, Selection.End(xlDown)).Select
  138.     Range(Selection, Selection.End(xlDown)).Select
  139.     Range(Selection, Selection.End(xlDown)).Select
  140.     Range(Selection, Selection.End(xlDown)).Select
  141.     Range(Selection, Selection.End(xlDown)).Select
  142.     Range(Selection, Selection.End(xlDown)).Select
  143.     Range(Selection, Selection.End(xlDown)).Select
  144.     Range(Selection, Selection.End(xlDown)).Select
  145.     Range(Selection, Selection.End(xlDown)).Select
  146.     Range(Selection, Selection.End(xlDown)).Select
  147.     Range(Selection, Selection.End(xlDown)).Select
  148.     Range(Selection, Selection.End(xlDown)).Select
  149.     Range(Selection, Selection.End(xlDown)).Select
  150.     Range(Selection, Selection.End(xlDown)).Select
  151.     Range(Selection, Selection.End(xlDown)).Select
  152.     Range(Selection, Selection.End(xlDown)).Select
  153.     Range(Selection, Selection.End(xlDown)).Select
  154.     Range(Selection, Selection.End(xlDown)).Select
  155.     Range(Selection, Selection.End(xlDown)).Select
  156.     Range(Selection, Selection.End(xlDown)).Select
  157.     Range(Selection, Selection.End(xlDown)).Select
  158.     Range(Selection, Selection.End(xlDown)).Select
  159.     Range(Selection, Selection.End(xlDown)).Select
  160.     Range(Selection, Selection.End(xlDown)).Select
  161.     Range(Selection, Selection.End(xlDown)).Select
  162.     Range(Selection, Selection.End(xlDown)).Select
  163.     Range(Selection, Selection.End(xlDown)).Select
  164.     Range(Selection, Selection.End(xlDown)).Select
  165.     Range(Selection, Selection.End(xlDown)).Select
  166.     Range(Selection, Selection.End(xlDown)).Select
  167.     Range(Selection, Selection.End(xlDown)).Select
  168.     Range(Selection, Selection.End(xlDown)).Select
  169.     Range(Selection, Selection.End(xlDown)).Select
  170.     Range(Selection, Selection.End(xlDown)).Select
  171.     Range(Selection, Selection.End(xlDown)).Select
  172.     Range(Selection, Selection.End(xlDown)).Select
  173.     Range(Selection, Selection.End(xlDown)).Select
  174.     Range(Selection, Selection.End(xlDown)).Select
  175.     Range(Selection, Selection.End(xlDown)).Select
  176.     Range(Selection, Selection.End(xlDown)).Select
  177.     Range(Selection, Selection.End(xlDown)).Select
  178.     Range(Selection, Selection.End(xlDown)).Select
  179.     Range(Selection, Selection.End(xlDown)).Select
  180.     Range(Selection, Selection.End(xlDown)).Select
  181.     Selection.End(xlUp).Select
  182.     Selection.End(xlUp).Select
  183.     Selection.End(xlUp).Select
  184.     Selection.End(xlUp).Select
  185.     Selection.End(xlUp).Select
  186.     Selection.End(xlUp).Select
  187.     Selection.End(xlUp).Select
  188.     Columns("K:K").Select
  189.     Selection.ClearContents
  190.     Range("I36").Select
  191.     Selection.AutoFilter
  192.     Selection.AutoFilter
  193.     Selection.AutoFilter
  194.     Cells.Select
  195.     End Sub
  196.  
  197.  Sub Proc4()
  198.     Range("G21").Activate
  199.     Selection.AutoFilter
  200.     Range("C9").Select
  201.     Selection.End(xlDown).Select
  202.     Range("C27").Select
  203.     Selection.End(xlUp).Select
  204.     Selection.End(xlUp).Select
  205.     Selection.End(xlUp).Select
  206.     Selection.End(xlUp).Select
  207.     Range("H5").Select
  208.     Selection.End(xlDown).Select
  209.     Selection.End(xlUp).Select
  210.     Selection.End(xlUp).Select
  211.     Selection.End(xlUp).Select
  212.     Selection.End(xlUp).Select
  213.     Selection.End(xlUp).Select
  214.     Selection.End(xlUp).Select
  215.     Selection.End(xlUp).Select
  216.     Selection.End(xlUp).Select
  217.     Selection.End(xlUp).Select
  218.     Selection.End(xlUp).Select
  219.     Selection.End(xlUp).Select
  220.     Selection.End(xlUp).Select
  221.     Selection.End(xlUp).Select
  222.     Selection.End(xlUp).Select
  223.     Selection.End(xlUp).Select
  224.     Selection.End(xlUp).Select
  225.     Cells.Select
  226.     Range("H4").Activate
  227.     ActiveSheet.Range("$A$2:$U$27346").AutoFilter Field:=8, Criteria1:="NI2"
  228.     Columns("E:E").Select
  229.     Selection.ClearContents
  230.     Columns("C:C").Select
  231.     Selection.ClearContents
  232.     ActiveSheet.Range("$A$2:$U$27346").AutoFilter Field:=8
  233.     Range("E7").Select
  234.     Columns("C:C").EntireColumn.AutoFit
  235.     Columns("D:D").EntireColumn.AutoFit
  236.     Range("C5").Select
  237.     Columns("B:B").EntireColumn.AutoFit
  238.     Range("B9").Select
  239.     Selection.End(xlDown).Select
  240.     Range("A36").Select
  241.     Selection.End(xlUp).Select
  242.     Selection.End(xlUp).Select
  243.     Selection.End(xlUp).Select
  244.     Selection.End(xlUp).Select
  245.     Selection.End(xlUp).Select
  246.     Selection.End(xlUp).Select
  247.     Selection.End(xlUp).Select
  248.     Selection.End(xlUp).Select
  249.     Selection.End(xlUp).Select
  250.     Selection.End(xlUp).Select
  251.     Selection.End(xlUp).Select
  252.     Selection.End(xlUp).Select
  253.     Selection.End(xlUp).Select
  254.     Selection.End(xlUp).Select
  255.     Selection.End(xlUp).Select
  256.     Selection.End(xlUp).Select
  257.     Selection.End(xlUp).Select
  258.     Selection.End(xlUp).Select
  259.     Selection.End(xlUp).Select
  260.     Selection.End(xlUp).Select
  261.     Range("A5").Select
  262.     Range(Selection, Selection.End(xlDown)).Select
  263.     Range(Selection, Selection.End(xlDown)).Select
  264.     Range(Selection, Selection.End(xlDown)).Select
  265.     Range(Selection, Selection.End(xlDown)).Select
  266.     Range(Selection, Selection.End(xlDown)).Select
  267.     Range(Selection, Selection.End(xlDown)).Select
  268.     Range(Selection, Selection.End(xlDown)).Select
  269.     Range(Selection, Selection.End(xlDown)).Select
  270.     Range(Selection, Selection.End(xlDown)).Select
  271.     Range(Selection, Selection.End(xlDown)).Select
  272.     Range(Selection, Selection.End(xlDown)).Select
  273.     Range(Selection, Selection.End(xlDown)).Select
  274.     Range(Selection, Selection.End(xlDown)).Select
  275.     Range(Selection, Selection.End(xlDown)).Select
  276.     Range(Selection, Selection.End(xlDown)).Select
  277.     Range(Selection, Selection.End(xlDown)).Select
  278.     Range(Selection, Selection.End(xlDown)).Select
  279.     Range(Selection, Selection.End(xlDown)).Select
  280.     Range(Selection, Selection.End(xlDown)).Select
  281.     Range(Selection, Selection.End(xlDown)).Select
  282.     Range(Selection, Selection.End(xlDown)).Select
  283.     Range(Selection, Selection.End(xlDown)).Select
  284.     Range(Selection, Selection.End(xlDown)).Select
  285.     Range(Selection, Selection.End(xlDown)).Select
  286.     Range(Selection, Selection.End(xlDown)).Select
  287.     Range(Selection, Selection.End(xlDown)).Select
  288.     Range(Selection, Selection.End(xlDown)).Select
  289.     Range(Selection, Selection.End(xlDown)).Select
  290.     Range(Selection, Selection.End(xlDown)).Select
  291.     Range(Selection, Selection.End(xlDown)).Select
  292.     Range(Selection, Selection.End(xlDown)).Select
  293.     Range(Selection, Selection.End(xlDown)).Select
  294.     Range(Selection, Selection.End(xlDown)).Select
  295.     Range(Selection, Selection.End(xlDown)).Select
  296.     Range(Selection, Selection.End(xlDown)).Select
  297.     Range(Selection, Selection.End(xlDown)).Select
  298.     Range(Selection, Selection.End(xlDown)).Select
  299.     Range(Selection, Selection.End(xlDown)).Select
  300.     Range(Selection, Selection.End(xlDown)).Select
  301.     Range(Selection, Selection.End(xlDown)).Select
  302.     Range(Selection, Selection.End(xlDown)).Select
  303.     Range(Selection, Selection.End(xlDown)).Select
  304.     Range(Selection, Selection.End(xlDown)).Select
  305.     Range(Selection, Selection.End(xlDown)).Select
  306.     Range(Selection, Selection.End(xlDown)).Select
  307.     Range(Selection, Selection.End(xlDown)).Select
  308.     Range(Selection, Selection.End(xlDown)).Select
  309.     Range(Selection, Selection.End(xlDown)).Select
  310.     Range(Selection, Selection.End(xlDown)).Select
  311.     Range(Selection, Selection.End(xlDown)).Select
  312.     Range(Selection, Selection.End(xlDown)).Select
  313.     Range(Selection, Selection.End(xlDown)).Select
  314.     Range(Selection, Selection.End(xlDown)).Select
  315.     Range(Selection, Selection.End(xlDown)).Select
  316.     Range(Selection, Selection.End(xlDown)).Select
  317.     Range(Selection, Selection.End(xlDown)).Select
  318.     Range(Selection, Selection.End(xlDown)).Select
  319.     Range(Selection, Selection.End(xlDown)).Select
  320.     Range(Selection, Selection.End(xlDown)).Select
  321.     Range(Selection, Selection.End(xlDown)).Select
  322.     Range(Selection, Selection.End(xlDown)).Select
  323.     Range(Selection, Selection.End(xlDown)).Select
  324.     Range(Selection, Selection.End(xlDown)).Select
  325.     Range(Selection, Selection.End(xlDown)).Select
  326.     Range(Selection, Selection.End(xlDown)).Select
  327.     Range(Selection, Selection.End(xlDown)).Select
  328.     Range(Selection, Selection.End(xlDown)).Select
  329.     Range(Selection, Selection.End(xlDown)).Select
  330.     Range(Selection, Selection.End(xlDown)).Select
  331.     Range(Selection, Selection.End(xlDown)).Select
  332.     Range(Selection, Selection.End(xlDown)).Select
  333.     Range(Selection, Selection.End(xlDown)).Select
  334.     Range(Selection, Selection.End(xlDown)).Select
  335.     Range(Selection, Selection.End(xlDown)).Select
  336.     Range(Selection, Selection.End(xlDown)).Select
  337.     Range(Selection, Selection.End(xlDown)).Select
  338.     Range(Selection, Selection.End(xlDown)).Select
  339.     Range(Selection, Selection.End(xlDown)).Select
  340.     Range(Selection, Selection.End(xlDown)).Select
  341.     Range(Selection, Selection.End(xlDown)).Select
  342.     Range(Selection, Selection.End(xlDown)).Select
  343.     Range(Selection, Selection.End(xlDown)).Select
  344.     Range(Selection, Selection.End(xlDown)).Select
  345.     Range(Selection, Selection.End(xlDown)).Select
  346.     Range(Selection, Selection.End(xlDown)).Select
  347.     Range(Selection, Selection.End(xlDown)).Select
  348.     Range(Selection, Selection.End(xlDown)).Select
  349.     Range(Selection, Selection.End(xlDown)).Select
  350.     Range(Selection, Selection.End(xlDown)).Select
  351.     Range(Selection, Selection.End(xlDown)).Select
  352.     Range(Selection, Selection.End(xlDown)).Select
  353.     Range(Selection, Selection.End(xlDown)).Select
  354.     Range(Selection, Selection.End(xlDown)).Select
  355.     Range(Selection, Selection.End(xlDown)).Select
  356.     Range(Selection, Selection.End(xlDown)).Select
  357.     Range(Selection, Selection.End(xlDown)).Select
  358.     Range(Selection, Selection.End(xlDown)).Select
  359.     Range(Selection, Selection.End(xlDown)).Select
  360.     Range(Selection, Selection.End(xlDown)).Select
  361.     Range(Selection, Selection.End(xlDown)).Select
  362.     Range(Selection, Selection.End(xlDown)).Select
  363.     Range(Selection, Selection.End(xlDown)).Select
  364.     Range(Selection, Selection.End(xlDown)).Select
  365.     Range(Selection, Selection.End(xlDown)).Select
  366.     Range(Selection, Selection.End(xlDown)).Select
  367.     Range(Selection, Selection.End(xlDown)).Select
  368.     Range(Selection, Selection.End(xlDown)).Select
  369.     Range(Selection, Selection.End(xlDown)).Select
  370.     Range(Selection, Selection.End(xlDown)).Select
  371.     Range(Selection, Selection.End(xlDown)).Select
  372.     Range(Selection, Selection.End(xlDown)).Select
  373.     Range(Selection, Selection.End(xlDown)).Select
  374.     Range(Selection, Selection.End(xlDown)).Select
  375.     Range(Selection, Selection.End(xlDown)).Select
  376.     Range(Selection, Selection.End(xlDown)).Select
  377.     Range(Selection, Selection.End(xlDown)).Select
  378.     Range(Selection, Selection.End(xlDown)).Select
  379.     Range(Selection, Selection.End(xlDown)).Select
  380.     Range(Selection, Selection.End(xlDown)).Select
  381.     Range(Selection, Selection.End(xlDown)).Select
  382.     Range(Selection, Selection.End(xlDown)).Select
  383.     Range(Selection, Selection.End(xlDown)).Select
  384.     Range(Selection, Selection.End(xlDown)).Select
  385.     Range(Selection, Selection.End(xlDown)).Select
  386.     Range(Selection, Selection.End(xlDown)).Select
  387.     Range(Selection, Selection.End(xlDown)).Select
  388.     Range(Selection, Selection.End(xlDown)).Select
  389.     Range(Selection, Selection.End(xlDown)).Select
  390.     Range(Selection, Selection.End(xlDown)).Select
  391.     Range(Selection, Selection.End(xlDown)).Select
  392.     Range(Selection, Selection.End(xlDown)).Select
  393.     Range(Selection, Selection.End(xlDown)).Select
  394.     Range(Selection, Selection.End(xlDown)).Select
  395.     Range(Selection, Selection.End(xlDown)).Select
  396.     Range(Selection, Selection.End(xlDown)).Select
  397.     Range(Selection, Selection.End(xlDown)).Select
  398.     Range(Selection, Selection.End(xlDown)).Select
  399.     Range(Selection, Selection.End(xlDown)).Select
  400.     Range(Selection, Selection.End(xlDown)).Select
  401.     Range(Selection, Selection.End(xlDown)).Select
  402.     Range(Selection, Selection.End(xlDown)).Select
  403.     Range(Selection, Selection.End(xlDown)).Select
  404.     Range(Selection, Selection.End(xlDown)).Select
  405.     Range(Selection, Selection.End(xlDown)).Select
  406.     Range(Selection, Selection.End(xlDown)).Select
  407.     Range(Selection, Selection.End(xlDown)).Select
  408.     Range(Selection, Selection.End(xlDown)).Select
  409.     Range(Selection, Selection.End(xlDown)).Select
  410.     Range(Selection, Selection.End(xlDown)).Select
  411.     Range(Selection, Selection.End(xlDown)).Select
  412.     Range(Selection, Selection.End(xlDown)).Select
  413.     Range(Selection, Selection.End(xlDown)).Select
  414.     Range(Selection, Selection.End(xlDown)).Select
  415.     Range(Selection, Selection.End(xlDown)).Select
  416.     Range(Selection, Selection.End(xlDown)).Select
  417.     Range(Selection, Selection.End(xlDown)).Select
  418.     Range(Selection, Selection.End(xlDown)).Select
  419.     Range(Selection, Selection.End(xlDown)).Select
  420.     Range(Selection, Selection.End(xlDown)).Select
  421.     Range(Selection, Selection.End(xlDown)).Select
  422.     Range(Selection, Selection.End(xlDown)).Select
  423.     Range(Selection, Selection.End(xlDown)).Select
  424.     Range(Selection, Selection.End(xlDown)).Select
  425.     Range(Selection, Selection.End(xlDown)).Select
  426.     Range(Selection, Selection.End(xlDown)).Select
  427.     Range(Selection, Selection.End(xlDown)).Select
  428.     Range(Selection, Selection.End(xlDown)).Select
  429.     Range(Selection, Selection.End(xlDown)).Select
  430.     Range(Selection, Selection.End(xlDown)).Select
  431.     Range(Selection, Selection.End(xlDown)).Select
  432.     Range(Selection, Selection.End(xlDown)).Select
  433.     Range(Selection, Selection.End(xlDown)).Select
  434.     Range(Selection, Selection.End(xlDown)).Select
  435.     Range(Selection, Selection.End(xlDown)).Select
  436.     Range(Selection, Selection.End(xlDown)).Select
  437.     Range(Selection, Selection.End(xlDown)).Select
  438.     Range(Selection, Selection.End(xlDown)).Select
  439.     Range(Selection, Selection.End(xlDown)).Select
  440.     Range(Selection, Selection.End(xlDown)).Select
  441.     Range(Selection, Selection.End(xlDown)).Select
  442.     Range(Selection, Selection.End(xlDown)).Select
  443.     Range(Selection, Selection.End(xlDown)).Select
  444.     Range(Selection, Selection.End(xlDown)).Select
  445.     Range(Selection, Selection.End(xlDown)).Select
  446.     Range(Selection, Selection.End(xlDown)).Select
  447.     Range(Selection, Selection.End(xlDown)).Select
  448.     Range(Selection, Selection.End(xlDown)).Select
  449.     Range(Selection, Selection.End(xlDown)).Select
  450.     Range(Selection, Selection.End(xlDown)).Select
  451.     Range(Selection, Selection.End(xlDown)).Select
  452.     Range(Selection, Selection.End(xlDown)).Select
  453.     Range(Selection, Selection.End(xlDown)).Select
  454.     Range(Selection, Selection.End(xlDown)).Select
  455.     Range(Selection, Selection.End(xlDown)).Select
  456.     Range(Selection, Selection.End(xlDown)).Select
  457.     Range(Selection, Selection.End(xlDown)).Select
  458.     Range(Selection, Selection.End(xlDown)).Select
  459.     Range(Selection, Selection.End(xlDown)).Select
  460.     Range(Selection, Selection.End(xlDown)).Select
  461.     Range(Selection, Selection.End(xlDown)).Select
  462.     Range(Selection, Selection.End(xlDown)).Select
  463.     Range(Selection, Selection.End(xlDown)).Select
  464.     Range(Selection, Selection.End(xlDown)).Select
  465.     Range(Selection, Selection.End(xlDown)).Select
  466.     Range(Selection, Selection.End(xlDown)).Select
  467.     Range(Selection, Selection.End(xlDown)).Select
  468.     Range(Selection, Selection.End(xlDown)).Select
  469.     Range(Selection, Selection.End(xlDown)).Select
  470.     Range(Selection, Selection.End(xlDown)).Select
  471.     Range(Selection, Selection.End(xlDown)).Select
  472.     Range(Selection, Selection.End(xlDown)).Select
  473.     Range(Selection, Selection.End(xlDown)).Select
  474.     Range(Selection, Selection.End(xlDown)).Select
  475.     Range(Selection, Selection.End(xlDown)).Select
  476.     Range(Selection, Selection.End(xlDown)).Select
  477.     Range(Selection, Selection.End(xlDown)).Select
  478.     Range(Selection, Selection.End(xlDown)).Select
  479.     Range(Selection, Selection.End(xlDown)).Select
  480.     Range(Selection, Selection.End(xlDown)).Select
  481.     Range(Selection, Selection.End(xlDown)).Select
  482.     Range(Selection, Selection.End(xlDown)).Select
  483.     Range(Selection, Selection.End(xlDown)).Select
  484.     Range(Selection, Selection.End(xlDown)).Select
  485.     Range(Selection, Selection.End(xlDown)).Select
  486.     Range(Selection, Selection.End(xlDown)).Select
  487.     Range(Selection, Selection.End(xlDown)).Select
  488.     Range(Selection, Selection.End(xlDown)).Select
  489.     Range(Selection, Selection.End(xlDown)).Select
  490.     Range(Selection, Selection.End(xlDown)).Select
  491.     Range(Selection, Selection.End(xlUp)).Select
  492.     End Sub
  493.  
  494.  Sub Proc5()
  495.     Range("B27338").Select
  496.     Selection.End(xlUp).Select
  497.     Selection.End(xlUp).Select
  498.     Selection.End(xlUp).Select
  499.     Selection.End(xlUp).Select
  500.     Selection.End(xlUp).Select
  501.     Selection.End(xlUp).Select
  502.     Selection.End(xlUp).Select
  503.     Selection.End(xlUp).Select
  504.     Cells.Select
  505.     Range("G3").Activate
  506.     ActiveSheet.Range("$A$2:$U$27346").AutoFilter Field:=7, Criteria1:="="
  507.     ActiveSheet.Range("$A$2:$U$27346").AutoFilter Field:=7
  508.     Range("H5:I5").Select
  509.     Range(Selection, Selection.End(xlDown)).Select
  510.     Range(Selection, Selection.End(xlDown)).Select
  511.     Range(Selection, Selection.End(xlDown)).Select
  512.     Range(Selection, Selection.End(xlDown)).Select
  513.     Range(Selection, Selection.End(xlDown)).Select
  514.     Range(Selection, Selection.End(xlDown)).Select
  515.     Range(Selection, Selection.End(xlDown)).Select
  516.     Range(Selection, Selection.End(xlDown)).Select
  517.     Range(Selection, Selection.End(xlDown)).Select
  518.     Range(Selection, Selection.End(xlDown)).Select
  519.     Range(Selection, Selection.End(xlDown)).Select
  520.     Range(Selection, Selection.End(xlDown)).Select
  521.     Range(Selection, Selection.End(xlDown)).Select
  522.     Range(Selection, Selection.End(xlDown)).Select
  523.     Range(Selection, Selection.End(xlDown)).Select
  524.     Range(Selection, Selection.End(xlDown)).Select
  525.     Range(Selection, Selection.End(xlDown)).Select
  526.     Range(Selection, Selection.End(xlDown)).Select
  527.     Range(Selection, Selection.End(xlDown)).Select
  528.     Range(Selection, Selection.End(xlDown)).Select
  529.     Range(Selection, Selection.End(xlDown)).Select
  530.     Range(Selection, Selection.End(xlDown)).Select
  531.     Range(Selection, Selection.End(xlDown)).Select
  532.     Range(Selection, Selection.End(xlDown)).Select
  533.     Range(Selection, Selection.End(xlDown)).Select
  534.     Range(Selection, Selection.End(xlDown)).Select
  535.     Range(Selection, Selection.End(xlDown)).Select
  536.     Range(Selection, Selection.End(xlDown)).Select
  537.     Range(Selection, Selection.End(xlDown)).Select
  538.     Range(Selection, Selection.End(xlDown)).Select
  539.     Range(Selection, Selection.End(xlDown)).Select
  540.     Range(Selection, Selection.End(xlDown)).Select
  541.     Range(Selection, Selection.End(xlDown)).Select
  542.     Range(Selection, Selection.End(xlDown)).Select
  543.     Range(Selection, Selection.End(xlDown)).Select
  544.     Range(Selection, Selection.End(xlDown)).Select
  545.     Range(Selection, Selection.End(xlDown)).Select
  546.     Range(Selection, Selection.End(xlDown)).Select
  547.     Range(Selection, Selection.End(xlDown)).Select
  548.     Range(Selection, Selection.End(xlDown)).Select
  549.     Range(Selection, Selection.End(xlDown)).Select
  550.     Range(Selection, Selection.End(xlDown)).Select
  551.     Range(Selection, Selection.End(xlDown)).Select
  552.     Range(Selection, Selection.End(xlDown)).Select
  553.     Range(Selection, Selection.End(xlDown)).Select
  554.     Range(Selection, Selection.End(xlDown)).Select
  555.     Range(Selection, Selection.End(xlDown)).Select
  556.     Range(Selection, Selection.End(xlDown)).Select
  557.     Range(Selection, Selection.End(xlDown)).Select
  558.     Range(Selection, Selection.End(xlDown)).Select
  559.     Range(Selection, Selection.End(xlDown)).Select
  560.     Range(Selection, Selection.End(xlDown)).Select
  561.     Range(Selection, Selection.End(xlDown)).Select
  562.     Range(Selection, Selection.End(xlDown)).Select
  563.     Range(Selection, Selection.End(xlDown)).Select
  564.     Range(Selection, Selection.End(xlDown)).Select
  565.     Range(Selection, Selection.End(xlDown)).Select
  566.     Range(Selection, Selection.End(xlDown)).Select
  567.     Range(Selection, Selection.End(xlDown)).Select
  568.     Range(Selection, Selection.End(xlDown)).Select
  569.     Range(Selection, Selection.End(xlDown)).Select
  570.     Range(Selection, Selection.End(xlDown)).Select
  571.     Range(Selection, Selection.End(xlDown)).Select
  572.     Range(Selection, Selection.End(xlDown)).Select
  573.     Range(Selection, Selection.End(xlDown)).Select
  574.     Range(Selection, Selection.End(xlDown)).Select
  575.     Range(Selection, Selection.End(xlDown)).Select
  576.     Range(Selection, Selection.End(xlDown)).Select
  577.     Range(Selection, Selection.End(xlDown)).Select
  578.     Range(Selection, Selection.End(xlDown)).Select
  579.     Range(Selection, Selection.End(xlDown)).Select
  580.     Range(Selection, Selection.End(xlDown)).Select
  581.     Range(Selection, Selection.End(xlDown)).Select
  582.     Range(Selection, Selection.End(xlDown)).Select
  583.     Range(Selection, Selection.End(xlDown)).Select
  584.     Range(Selection, Selection.End(xlDown)).Select
  585.     Range(Selection, Selection.End(xlDown)).Select
  586.     Range(Selection, Selection.End(xlDown)).Select
  587.     Range(Selection, Selection.End(xlDown)).Select
  588.     Range(Selection, Selection.End(xlDown)).Select
  589.     Range(Selection, Selection.End(xlDown)).Select
  590.     Range(Selection, Selection.End(xlDown)).Select
  591.     Range(Selection, Selection.End(xlDown)).Select
  592.     Range(Selection, Selection.End(xlDown)).Select
  593.     Range(Selection, Selection.End(xlDown)).Select
  594.     Range(Selection, Selection.End(xlDown)).Select
  595.     Range(Selection, Selection.End(xlDown)).Select
  596.     Range(Selection, Selection.End(xlDown)).Select
  597.     Range(Selection, Selection.End(xlDown)).Select
  598.     Range(Selection, Selection.End(xlDown)).Select
  599.     Range(Selection, Selection.End(xlDown)).Select
  600.     Range(Selection, Selection.End(xlDown)).Select
  601.     Range(Selection, Selection.End(xlDown)).Select
  602.     Range(Selection, Selection.End(xlDown)).Select
  603.     Range(Selection, Selection.End(xlDown)).Select
  604.     Range(Selection, Selection.End(xlDown)).Select
  605.     Range(Selection, Selection.End(xlDown)).Select
  606.     Range(Selection, Selection.End(xlDown)).Select
  607.     Range(Selection, Selection.End(xlDown)).Select
  608.     Range(Selection, Selection.End(xlDown)).Select
  609.     Range(Selection, Selection.End(xlDown)).Select
  610.     Range(Selection, Selection.End(xlDown)).Select
  611.     Range(Selection, Selection.End(xlDown)).Select
  612.     Range(Selection, Selection.End(xlDown)).Select
  613.     Range(Selection, Selection.End(xlDown)).Select
  614.     Range(Selection, Selection.End(xlDown)).Select
  615.     Range(Selection, Selection.End(xlDown)).Select
  616.     Range(Selection, Selection.End(xlDown)).Select
  617.     Range(Selection, Selection.End(xlDown)).Select
  618.     Range(Selection, Selection.End(xlDown)).Select
  619.     Range(Selection, Selection.End(xlDown)).Select
  620.     Range(Selection, Selection.End(xlDown)).Select
  621.     Range(Selection, Selection.End(xlDown)).Select
  622.     Range(Selection, Selection.End(xlDown)).Select
  623.     Range(Selection, Selection.End(xlDown)).Select
  624.     Range(Selection, Selection.End(xlDown)).Select
  625.     Range(Selection, Selection.End(xlDown)).Select
  626.     Range(Selection, Selection.End(xlDown)).Select
  627.     Range(Selection, Selection.End(xlDown)).Select
  628.     Range(Selection, Selection.End(xlDown)).Select
  629.     Range(Selection, Selection.End(xlDown)).Select
  630.     Range(Selection, Selection.End(xlDown)).Select
  631.     Range(Selection, Selection.End(xlDown)).Select
  632.     Range(Selection, Selection.End(xlDown)).Select
  633.     Range(Selection, Selection.End(xlDown)).Select
  634.     Range(Selection, Selection.End(xlDown)).Select
  635.     Range(Selection, Selection.End(xlDown)).Select
  636.     Range(Selection, Selection.End(xlDown)).Select
  637.     Range(Selection, Selection.End(xlDown)).Select
  638.     Range(Selection, Selection.End(xlDown)).Select
  639.     Range(Selection, Selection.End(xlDown)).Select
  640.     Range(Selection, Selection.End(xlDown)).Select
  641.     Range(Selection, Selection.End(xlDown)).Select
  642.     Range(Selection, Selection.End(xlDown)).Select
  643.     Range(Selection, Selection.End(xlDown)).Select
  644.     Range(Selection, Selection.End(xlDown)).Select
  645.     Range(Selection, Selection.End(xlDown)).Select
  646.     Range(Selection, Selection.End(xlDown)).Select
  647.     Range(Selection, Selection.End(xlDown)).Select
  648.     Range(Selection, Selection.End(xlDown)).Select
  649.     Range(Selection, Selection.End(xlDown)).Select
  650.     Range(Selection, Selection.End(xlDown)).Select
  651.     Range(Selection, Selection.End(xlDown)).Select
  652.     Range(Selection, Selection.End(xlDown)).Select
  653.     Range(Selection, Selection.End(xlDown)).Select
  654.     Range(Selection, Selection.End(xlDown)).Select
  655.     Range(Selection, Selection.End(xlDown)).Select
  656.     Range(Selection, Selection.End(xlDown)).Select
  657.     Range(Selection, Selection.End(xlDown)).Select
  658.     Range(Selection, Selection.End(xlDown)).Select
  659.     Range(Selection, Selection.End(xlDown)).Select
  660.     Range(Selection, Selection.End(xlDown)).Select
  661.     Range(Selection, Selection.End(xlDown)).Select
  662.     Range(Selection, Selection.End(xlDown)).Select
  663.     Range(Selection, Selection.End(xlDown)).Select
  664.     Range(Selection, Selection.End(xlDown)).Select
  665.     Range(Selection, Selection.End(xlDown)).Select
  666.     Range(Selection, Selection.End(xlDown)).Select
  667.     Range(Selection, Selection.End(xlDown)).Select
  668.     Range(Selection, Selection.End(xlDown)).Select
  669.     Range(Selection, Selection.End(xlDown)).Select
  670.     Range(Selection, Selection.End(xlDown)).Select
  671.     Range(Selection, Selection.End(xlDown)).Select
  672.     Range(Selection, Selection.End(xlDown)).Select
  673.     Range(Selection, Selection.End(xlDown)).Select
  674.     Range(Selection, Selection.End(xlDown)).Select
  675.     Range(Selection, Selection.End(xlDown)).Select
  676.     Range(Selection, Selection.End(xlDown)).Select
  677.     Range(Selection, Selection.End(xlDown)).Select
  678.     Range(Selection, Selection.End(xlDown)).Select
  679.     Range(Selection, Selection.End(xlDown)).Select
  680.     Range(Selection, Selection.End(xlDown)).Select
  681.     Range(Selection, Selection.End(xlDown)).Select
  682.     Range(Selection, Selection.End(xlDown)).Select
  683.     Range(Selection, Selection.End(xlDown)).Select
  684.     Range(Selection, Selection.End(xlDown)).Select
  685.     Range(Selection, Selection.End(xlDown)).Select
  686.     Range(Selection, Selection.End(xlDown)).Select
  687.     Range(Selection, Selection.End(xlDown)).Select
  688.     Range(Selection, Selection.End(xlDown)).Select
  689.     Range(Selection, Selection.End(xlDown)).Select
  690.     Range(Selection, Selection.End(xlDown)).Select
  691.     Range(Selection, Selection.End(xlDown)).Select
  692.     Range(Selection, Selection.End(xlDown)).Select
  693.     Range(Selection, Selection.End(xlDown)).Select
  694.     Range(Selection, Selection.End(xlDown)).Select
  695.     Range(Selection, Selection.End(xlDown)).Select
  696.     Range(Selection, Selection.End(xlDown)).Select
  697.     Range(Selection, Selection.End(xlDown)).Select
  698.     Range(Selection, Selection.End(xlDown)).Select
  699.     Range(Selection, Selection.End(xlDown)).Select
  700.     Range(Selection, Selection.End(xlDown)).Select
  701.     Range(Selection, Selection.End(xlDown)).Select
  702.     Range(Selection, Selection.End(xlDown)).Select
  703.     Range(Selection, Selection.End(xlDown)).Select
  704.     Range(Selection, Selection.End(xlDown)).Select
  705.     Range(Selection, Selection.End(xlDown)).Select
  706.     Range(Selection, Selection.End(xlDown)).Select
  707.     Range(Selection, Selection.End(xlDown)).Select
  708.     Range(Selection, Selection.End(xlDown)).Select
  709.     Range(Selection, Selection.End(xlDown)).Select
  710.     Range(Selection, Selection.End(xlDown)).Select
  711.     Range(Selection, Selection.End(xlDown)).Select
  712.     Range(Selection, Selection.End(xlDown)).Select
  713.     Range(Selection, Selection.End(xlDown)).Select
  714.     Range(Selection, Selection.End(xlDown)).Select
  715.     Range(Selection, Selection.End(xlDown)).Select
  716.     Range(Selection, Selection.End(xlDown)).Select
  717.     Range(Selection, Selection.End(xlDown)).Select
  718.     Range(Selection, Selection.End(xlDown)).Select
  719.     Range(Selection, Selection.End(xlDown)).Select
  720.     Range(Selection, Selection.End(xlDown)).Select
  721.     Range(Selection, Selection.End(xlDown)).Select
  722.     Range(Selection, Selection.End(xlDown)).Select
  723.     Range(Selection, Selection.End(xlDown)).Select
  724.     Range(Selection, Selection.End(xlDown)).Select
  725.     Range(Selection, Selection.End(xlDown)).Select
  726.     Range(Selection, Selection.End(xlDown)).Select
  727.     Range(Selection, Selection.End(xlDown)).Select
  728.     Range(Selection, Selection.End(xlDown)).Select
  729.     Range(Selection, Selection.End(xlDown)).Select
  730.     Range(Selection, Selection.End(xlDown)).Select
  731.     Range(Selection, Selection.End(xlDown)).Select
  732.     Range(Selection, Selection.End(xlDown)).Select
  733.     Range(Selection, Selection.End(xlDown)).Select
  734.     Range(Selection, Selection.End(xlDown)).Select
  735.     Range(Selection, Selection.End(xlDown)).Select
  736.     Range(Selection, Selection.End(xlDown)).Select
  737.     Range(Selection, Selection.End(xlDown)).Select
  738.     Range(Selection, Selection.End(xlDown)).Select
  739.     Range(Selection, Selection.End(xlDown)).Select
  740.     Range(Selection, Selection.End(xlDown)).Select
  741.     Range(Selection, Selection.End(xlDown)).Select
  742.     Range(Selection, Selection.End(xlDown)).Select
  743.     Range(Selection, Selection.End(xlDown)).Select
  744.     Range(Selection, Selection.End(xlDown)).Select
  745.     Range(Selection, Selection.End(xlDown)).Select
  746.     Range(Selection, Selection.End(xlDown)).Select
  747.     Range(Selection, Selection.End(xlDown)).Select
  748.     Range(Selection, Selection.End(xlDown)).Select
  749.     Range(Selection, Selection.End(xlDown)).Select
  750.     Range(Selection, Selection.End(xlDown)).Select
  751.     Range(Selection, Selection.End(xlDown)).Select
  752.     Range(Selection, Selection.End(xlDown)).Select
  753.     Range(Selection, Selection.End(xlDown)).Select
  754.     Range(Selection, Selection.End(xlDown)).Select
  755.     Range(Selection, Selection.End(xlDown)).Select
  756.     Range(Selection, Selection.End(xlDown)).Select
  757.     Range(Selection, Selection.End(xlDown)).Select
  758.     Range(Selection, Selection.End(xlDown)).Select
  759.     Range(Selection, Selection.End(xlDown)).Select
  760.     Range(Selection, Selection.End(xlDown)).Select
  761.     Range(Selection, Selection.End(xlDown)).Select
  762.     Range(Selection, Selection.End(xlDown)).Select
  763.     Range(Selection, Selection.End(xlDown)).Select
  764.     Range(Selection, Selection.End(xlDown)).Select
  765.     Range(Selection, Selection.End(xlDown)).Select
  766.     Range(Selection, Selection.End(xlDown)).Select
  767.     Range(Selection, Selection.End(xlDown)).Select
  768.     Range(Selection, Selection.End(xlDown)).Select
  769.     Range(Selection, Selection.End(xlDown)).Select
  770.     Range(Selection, Selection.End(xlDown)).Select
  771.     Range(Selection, Selection.End(xlDown)).Select
  772.     Range(Selection, Selection.End(xlDown)).Select
  773.     Range(Selection, Selection.End(xlDown)).Select
  774.     Range(Selection, Selection.End(xlDown)).Select
  775.     Range(Selection, Selection.End(xlDown)).Select
  776.     Range(Selection, Selection.End(xlDown)).Select
  777.     Range(Selection, Selection.End(xlDown)).Select
  778.     Range(Selection, Selection.End(xlDown)).Select
  779.     Range(Selection, Selection.End(xlDown)).Select
  780.     Range(Selection, Selection.End(xlDown)).Select
  781.     Range(Selection, Selection.End(xlDown)).Select
  782.     Range(Selection, Selection.End(xlDown)).Select
  783.     Range(Selection, Selection.End(xlDown)).Select
  784.     Range(Selection, Selection.End(xlDown)).Select
  785.     Range(Selection, Selection.End(xlDown)).Select
  786.     Range(Selection, Selection.End(xlDown)).Select
  787.     Range(Selection, Selection.End(xlDown)).Select
  788.     Range(Selection, Selection.End(xlDown)).Select
  789.     Range(Selection, Selection.End(xlDown)).Select
  790.     Range(Selection, Selection.End(xlDown)).Select
  791.     Range(Selection, Selection.End(xlDown)).Select
  792.     Range(Selection, Selection.End(xlDown)).Select
  793.     Range(Selection, Selection.End(xlDown)).Select
  794.     Range(Selection, Selection.End(xlDown)).Select
  795.     Range(Selection, Selection.End(xlDown)).Select
  796.     Range(Selection, Selection.End(xlDown)).Select
  797.     Range(Selection, Selection.End(xlDown)).Select
  798.     Range(Selection, Selection.End(xlDown)).Select
  799.     Range(Selection, Selection.End(xlDown)).Select
  800.     Range(Selection, Selection.End(xlDown)).Select
  801.     Range(Selection, Selection.End(xlDown)).Select
  802.     Range(Selection, Selection.End(xlDown)).Select
  803.     Range(Selection, Selection.End(xlDown)).Select
  804.     Range(Selection, Selection.End(xlDown)).Select
  805.     Range(Selection, Selection.End(xlDown)).Select
  806.     Range(Selection, Selection.End(xlDown)).Select
  807.     Range(Selection, Selection.End(xlDown)).Select
  808.     Range(Selection, Selection.End(xlDown)).Select
  809.     Range(Selection, Selection.End(xlDown)).Select
  810.     Range(Selection, Selection.End(xlDown)).Select
  811.     Range(Selection, Selection.End(xlDown)).Select
  812.     Range(Selection, Selection.End(xlDown)).Select
  813.     Range(Selection, Selection.End(xlDown)).Select
  814.     Range(Selection, Selection.End(xlDown)).Select
  815.     Range(Selection, Selection.End(xlDown)).Select
  816.     Range(Selection, Selection.End(xlDown)).Select
  817.     Range(Selection, Selection.End(xlDown)).Select
  818.     Range(Selection, Selection.End(xlDown)).Select
  819.     Range(Selection, Selection.End(xlDown)).Select
  820.     Range(Selection, Selection.End(xlDown)).Select
  821.     Range(Selection, Selection.End(xlDown)).Select
  822.     Range(Selection, Selection.End(xlDown)).Select
  823.     Range(Selection, Selection.End(xlDown)).Select
  824.     Range(Selection, Selection.End(xlDown)).Select
  825.     Range(Selection, Selection.End(xlDown)).Select
  826.     Range(Selection, Selection.End(xlDown)).Select
  827.     Range(Selection, Selection.End(xlDown)).Select
  828.     Range(Selection, Selection.End(xlDown)).Select
  829.     Range(Selection, Selection.End(xlDown)).Select
  830.     Range(Selection, Selection.End(xlDown)).Select
  831.     Range(Selection, Selection.End(xlDown)).Select
  832.     Range(Selection, Selection.End(xlDown)).Select
  833.     Range(Selection, Selection.End(xlDown)).Select
  834.     Range(Selection, Selection.End(xlDown)).Select
  835.     Range(Selection, Selection.End(xlDown)).Select
  836.     Range(Selection, Selection.End(xlDown)).Select
  837.     Range(Selection, Selection.End(xlDown)).Select
  838.     Range(Selection, Selection.End(xlDown)).Select
  839.     Range(Selection, Selection.End(xlDown)).Select
  840.     Range(Selection, Selection.End(xlDown)).Select
  841.     Range(Selection, Selection.End(xlDown)).Select
  842.     Range(Selection, Selection.End(xlDown)).Select
  843.     Range(Selection, Selection.End(xlDown)).Select
  844.     Range(Selection, Selection.End(xlDown)).Select
  845.     Range(Selection, Selection.End(xlDown)).Select
  846.     Range(Selection, Selection.End(xlDown)).Select
  847.     Range(Selection, Selection.End(xlDown)).Select
  848.     Range(Selection, Selection.End(xlDown)).Select
  849.     Range(Selection, Selection.End(xlDown)).Select
  850.     Range(Selection, Selection.End(xlDown)).Select
  851.     Range(Selection, Selection.End(xlDown)).Select
  852.     Range(Selection, Selection.End(xlDown)).Select
  853.     Range(Selection, Selection.End(xlDown)).Select
  854.     Range(Selection, Selection.End(xlDown)).Select
  855.     Range(Selection, Selection.End(xlDown)).Select
  856.     Range(Selection, Selection.End(xlDown)).Select
  857.     Range(Selection, Selection.End(xlDown)).Select
  858.     Range(Selection, Selection.End(xlDown)).Select
  859.     Range(Selection, Selection.End(xlDown)).Select
  860.     Range(Selection, Selection.End(xlDown)).Select
  861.     Range(Selection, Selection.End(xlDown)).Select
  862.     Range(Selection, Selection.End(xlDown)).Select
  863.     Range(Selection, Selection.End(xlDown)).Select
  864.     Range(Selection, Selection.End(xlDown)).Select
  865.     Range(Selection, Selection.End(xlDown)).Select
  866.     Range(Selection, Selection.End(xlDown)).Select
  867.     Range(Selection, Selection.End(xlDown)).Select
  868.     Range(Selection, Selection.End(xlDown)).Select
  869.     Range(Selection, Selection.End(xlDown)).Select
  870.     Range(Selection, Selection.End(xlDown)).Select
  871.     Range(Selection, Selection.End(xlDown)).Select
  872.     Range(Selection, Selection.End(xlDown)).Select
  873.     Range(Selection, Selection.End(xlDown)).Select
  874.     Range(Selection, Selection.End(xlDown)).Select
  875.     Range(Selection, Selection.End(xlDown)).Select
  876.     Range(Selection, Selection.End(xlDown)).Select
  877.     Range(Selection, Selection.End(xlDown)).Select
  878.     Range(Selection, Selection.End(xlDown)).Select
  879.     Range(Selection, Selection.End(xlDown)).Select
  880.     Range(Selection, Selection.End(xlDown)).Select
  881.     Range(Selection, Selection.End(xlDown)).Select
  882.     Range(Selection, Selection.End(xlDown)).Select
  883.     Range(Selection, Selection.End(xlDown)).Select
  884.     Range(Selection, Selection.End(xlDown)).Select
  885.     Range(Selection, Selection.End(xlDown)).Select
  886.     Range(Selection, Selection.End(xlDown)).Select
  887.     Range(Selection, Selection.End(xlDown)).Select
  888.     Range(Selection, Selection.End(xlDown)).Select
  889.     Range(Selection, Selection.End(xlDown)).Select
  890.     Range(Selection, Selection.End(xlDown)).Select
  891.     Range(Selection, Selection.End(xlDown)).Select
  892.     Range(Selection, Selection.End(xlDown)).Select
  893.     Range(Selection, Selection.End(xlDown)).Select
  894.     Range(Selection, Selection.End(xlDown)).Select
  895.     Range(Selection, Selection.End(xlDown)).Select
  896.     Range(Selection, Selection.End(xlDown)).Select
  897.     Range(Selection, Selection.End(xlDown)).Select
  898.     Range(Selection, Selection.End(xlDown)).Select
  899.     Range(Selection, Selection.End(xlDown)).Select
  900.     Range(Selection, Selection.End(xlDown)).Select
  901.     Range(Selection, Selection.End(xlDown)).Select
  902.     Range(Selection, Selection.End(xlDown)).Select
  903.     Range(Selection, Selection.End(xlDown)).Select
  904.     Range(Selection, Selection.End(xlDown)).Select
  905.     Range(Selection, Selection.End(xlDown)).Select
  906.     Range(Selection, Selection.End(xlDown)).Select
  907.     Range(Selection, Selection.End(xlDown)).Select
  908.     Range(Selection, Selection.End(xlDown)).Select
  909.     Range(Selection, Selection.End(xlDown)).Select
  910.     Range(Selection, Selection.End(xlDown)).Select
  911.     Range(Selection, Selection.End(xlDown)).Select
  912.     Range(Selection, Selection.End(xlDown)).Select
  913.     Range(Selection, Selection.End(xlDown)).Select
  914.     Range(Selection, Selection.End(xlDown)).Select
  915.     Range(Selection, Selection.End(xlDown)).Select
  916.     Range(Selection, Selection.End(xlDown)).Select
  917.     Range(Selection, Selection.End(xlDown)).Select
  918.     Range(Selection, Selection.End(xlDown)).Select
  919.     Range(Selection, Selection.End(xlDown)).Select
  920.     Range(Selection, Selection.End(xlDown)).Select
  921.     Range(Selection, Selection.End(xlDown)).Select
  922.     Range(Selection, Selection.End(xlDown)).Select
  923.     Range(Selection, Selection.End(xlDown)).Select
  924.     Range(Selection, Selection.End(xlDown)).Select
  925.     Range(Selection, Selection.End(xlDown)).Select
  926.     Range(Selection, Selection.End(xlDown)).Select
  927.     Range(Selection, Selection.End(xlDown)).Select
  928.     Range(Selection, Selection.End(xlDown)).Select
  929.     Range(Selection, Selection.End(xlDown)).Select
  930.     Range(Selection, Selection.End(xlDown)).Select
  931.     Range(Selection, Selection.End(xlDown)).Select
  932.     Range(Selection, Selection.End(xlDown)).Select
  933.     Range(Selection, Selection.End(xlDown)).Select
  934.     Range(Selection, Selection.End(xlDown)).Select
  935.     Range(Selection, Selection.End(xlDown)).Select
  936.     Range(Selection, Selection.End(xlDown)).Select
  937.     Range(Selection, Selection.End(xlDown)).Select
  938.     Range(Selection, Selection.End(xlDown)).Select
  939.     Range(Selection, Selection.End(xlDown)).Select
  940.     Range(Selection, Selection.End(xlDown)).Select
  941.     Range(Selection, Selection.End(xlDown)).Select
  942.     Range(Selection, Selection.End(xlDown)).Select
  943.     Range(Selection, Selection.End(xlDown)).Select
  944.     Range(Selection, Selection.End(xlDown)).Select
  945.     Range(Selection, Selection.End(xlDown)).Select
  946.     Range(Selection, Selection.End(xlDown)).Select
  947.     Range(Selection, Selection.End(xlDown)).Select
  948.     Range(Selection, Selection.End(xlDown)).Select
  949.     Range(Selection, Selection.End(xlDown)).Select
  950.     Range(Selection, Selection.End(xlUp)).Select
  951.     End Sub
  952.  
  953.  Sub Proc6()
  954.     Range("H27337").Select
  955.     Selection.End(xlUp).Select
  956.     Selection.End(xlUp).Select
  957.     Selection.End(xlUp).Select
  958.     Selection.End(xlUp).Select
  959.     Selection.End(xlUp).Select
  960.     Selection.End(xlUp).Select
  961.     Selection.End(xlUp).Select
  962.     Selection.End(xlUp).Select
  963.     Selection.End(xlUp).Select
  964.     Selection.End(xlUp).Select
  965.     Selection.End(xlUp).Select
  966.     Selection.End(xlUp).Select
  967.     Selection.End(xlUp).Select
  968.     Selection.End(xlUp).Select
  969.     Selection.End(xlUp).Select
  970.     Selection.End(xlUp).Select
  971.     Range("H3").Select
  972.     ActiveSheet.Range("$A$2:$U$27346").AutoFilter Field:=7, Criteria1:="="
  973.     Range("A4").Select
  974.     Range(Selection, Selection.End(xlDown)).Select
  975.     Range(Selection, Selection.End(xlDown)).Select
  976.     Range(Selection, Selection.End(xlDown)).Select
  977.     Range(Selection, Selection.End(xlDown)).Select
  978.     Range(Selection, Selection.End(xlDown)).Select
  979.     Range(Selection, Selection.End(xlDown)).Select
  980.     Range(Selection, Selection.End(xlDown)).Select
  981.     Range(Selection, Selection.End(xlDown)).Select
  982.     Range(Selection, Selection.End(xlDown)).Select
  983.     Range(Selection, Selection.End(xlDown)).Select
  984.     Range(Selection, Selection.End(xlDown)).Select
  985.     Range(Selection, Selection.End(xlDown)).Select
  986.     Range(Selection, Selection.End(xlDown)).Select
  987.     Range(Selection, Selection.End(xlDown)).Select
  988.     Range(Selection, Selection.End(xlDown)).Select
  989.     Range(Selection, Selection.End(xlDown)).Select
  990.     Range(Selection, Selection.End(xlDown)).Select
  991.     Range(Selection, Selection.End(xlDown)).Select
  992.     Range(Selection, Selection.End(xlDown)).Select
  993.     Range(Selection, Selection.End(xlUp)).Select
  994.     Range("A4:A27346").Select
  995.     Selection.EntireRow.Delete
  996.     ActiveSheet.Range("$A$2:$U$25584").AutoFilter Field:=7
  997.     Range("C6").Select
  998.     Selection.AutoFilter
  999.     Rows("1:2").Select
  1000.     Range("A2").Activate
  1001.     Selection.Delete Shift:=xlUp
  1002.     Range("C7").Select
  1003.     Selection.End(xlDown).Select
  1004.     Range("C25581").Select
  1005.     Selection.End(xlUp).Select
  1006.     Selection.End(xlUp).Select
  1007.     Selection.End(xlUp).Select
  1008.     Range("D1").Select
  1009.     Selection.End(xlDown).Select
  1010.     Range("E99").Select
  1011.     Selection.End(xlUp).Select
  1012.     Selection.End(xlUp).Select
  1013.     Selection.End(xlUp).Select
  1014.     Selection.End(xlUp).Select
  1015.     Selection.End(xlUp).Select
  1016.     Selection.End(xlUp).Select
  1017.     Range("D2").Select
  1018.     Selection.End(xlDown).Select
  1019.     Selection.End(xlDown).Select
  1020.     Selection.End(xlDown).Select
  1021.     Selection.End(xlDown).Select
  1022.     Selection.End(xlDown).Select
  1023.     Selection.End(xlDown).Select
  1024.     Selection.End(xlDown).Select
  1025.     Selection.End(xlDown).Select
  1026.     Selection.End(xlDown).Select
  1027.     Selection.End(xlDown).Select
  1028.     Selection.End(xlDown).Select
  1029.     Selection.End(xlDown).Select
  1030.     Selection.End(xlDown).Select
  1031.     Selection.End(xlDown).Select
  1032.     Selection.End(xlDown).Select
  1033.     Selection.End(xlDown).Select
  1034.     Selection.End(xlDown).Select
  1035.     Range("E5293").Select
  1036.     Selection.End(xlUp).Select
  1037.     Range("E2").Select
  1038.     Selection.End(xlDown).Select
  1039.     Range("E25582").Select
  1040.     Selection.End(xlUp).Select
  1041.     Range("W1").Select
  1042. End Sub
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement
Public Pastes
Advertisement
We use cookies for various purposes including analytics. By continuing to use Pastebin, you agree to our use of cookies as described in the Cookies Policy.  OK, I Understand
Not a member of Pastebin yet?
Sign Up, it unlocks many cool features!