Trying to simplify my macro code

Z

Zurina

New Member
Joined
Aug 21, 2013
Messages
9
Morning and thanks in advance.

Having problem with my macro...the procedure was too large. Can anyone help me simplify my code?


Code: 
Sub Units()
'
' Units Macro
' Update Creation & Cancellation Tables
'
Select Case Sheets("Fs").Range("A8").Value
'Sheet A&C-MYR
Case 1
'A-MYR
'Update Cancellation Table
        Sheets("CrCn").Range("C10").Value = Sheets("A&C-MYR").Range("I56").Value
        Sheets("CrCn").Range("D10").Value = Sheets("A&C-MYR").Range("G62").Value
        Sheets("CrCn").Range("E10").Value = Sheets("Input 2").Range("C24").Value
        Sheets("CrCn").Range("F10").Value = Sheets("Input 2").Range("C25").Value
        Sheets("CrCn").Range("G10").Value = Sheets("Input 2").Range("C26").Value
        Sheets("CrCn").Range("H10").Value = Sheets("Input 2").Range("C29").Value
        Sheets("CrCn").Range("I10").Value = Sheets("Input 2").Range("C30").Value
'Update Creation Table
        Sheets("CrCn").Range("L10").Value = Sheets("Input 2").Range("C15").Value
        Sheets("CrCn").Range("M10").Value = Sheets("Input 2").Range("C16").Value
        Sheets("CrCn").Range("N10").Value = Sheets("Input 2").Range("C17").Value
        Sheets("CrCn").Range("O10").Value = Sheets("Input 2").Range("C20").Value
        Sheets("CrCn").Range("P10").Value = Sheets("Input 2").Range("C21").Value
'C-MYR
'Update Cancellation Table
        Sheets("CrCn").Range("U10").Value = Sheets("A&C-MYR").Range("S56").Value
        Sheets("CrCn").Range("V10").Value = Sheets("A&C-MYR").Range("Q62").Value
        Sheets("CrCn").Range("W10").Value = Sheets("Input 2").Range("D24").Value
        Sheets("CrCn").Range("X10").Value = Sheets("Input 2").Range("D25").Value
        Sheets("CrCn").Range("Y10").Value = Sheets("Input 2").Range("D26").Value
        Sheets("CrCn").Range("Z10").Value = Sheets("Input 2").Range("D29").Value
        Sheets("CrCn").Range("AA10").Value = Sheets("Input 2").Range("D30").Value
'Update Creation Table
        Sheets("CrCn").Range("AD10").Value = Sheets("Input 2").Range("D15").Value
        Sheets("CrCn").Range("AE10").Value = Sheets("Input 2").Range("D16").Value
        Sheets("CrCn").Range("AF10").Value = Sheets("Input 2").Range("D17").Value
        Sheets("CrCn").Range("AG10").Value = Sheets("Input 2").Range("D20").Value
        Sheets("CrCn").Range("AH10").Value = Sheets("Input 2").Range("D21").Value
Case 2
'A-MYR
'Update Cancellation Table
        Sheets("CrCn").Range("C11").Value = Sheets("A&C-MYR").Range("I56").Value
        Sheets("CrCn").Range("D11").Value = Sheets("A&C-MYR").Range("G62").Value
        Sheets("CrCn").Range("E11").Value = Sheets("Input 2").Range("C24").Value
        Sheets("CrCn").Range("F11").Value = Sheets("Input 2").Range("C25").Value
        Sheets("CrCn").Range("G11").Value = Sheets("Input 2").Range("C26").Value
        Sheets("CrCn").Range("H11").Value = Sheets("Input 2").Range("C29").Value
        Sheets("CrCn").Range("I11").Value = Sheets("Input 2").Range("C30").Value
'Update Creation Table
        Sheets("CrCn").Range("L11").Value = Sheets("Input 2").Range("C15").Value
        Sheets("CrCn").Range("M11").Value = Sheets("Input 2").Range("C16").Value
        Sheets("CrCn").Range("N11").Value = Sheets("Input 2").Range("C17").Value
        Sheets("CrCn").Range("O11").Value = Sheets("Input 2").Range("C20").Value
        Sheets("CrCn").Range("P11").Value = Sheets("Input 2").Range("C21").Value
'C-MYR
'Update Cancellation Table
        Sheets("CrCn").Range("U11").Value = Sheets("A&C-MYR").Range("S56").Value
        Sheets("CrCn").Range("V11").Value = Sheets("A&C-MYR").Range("Q62").Value
        Sheets("CrCn").Range("W11").Value = Sheets("Input 2").Range("D24").Value
        Sheets("CrCn").Range("X11").Value = Sheets("Input 2").Range("D25").Value
        Sheets("CrCn").Range("Y11").Value = Sheets("Input 2").Range("D26").Value
        Sheets("CrCn").Range("Z11").Value = Sheets("Input 2").Range("D29").Value
        Sheets("CrCn").Range("AA11").Value = Sheets("Input 2").Range("D30").Value
'Update Creation Table
        Sheets("CrCn").Range("AD11").Value = Sheets("Input 2").Range("D15").Value
        Sheets("CrCn").Range("AE11").Value = Sheets("Input 2").Range("D16").Value
        Sheets("CrCn").Range("AF11").Value = Sheets("Input 2").Range("D17").Value
        Sheets("CrCn").Range("AG11").Value = Sheets("Input 2").Range("D20").Value
        Sheets("CrCn").Range("AH11").Value = Sheets("Input 2").Range("D21").Value
Case 3
'A-MYR
'Update Cancellation Table
        Sheets("CrCn").Range("C12").Value = Sheets("A&C-MYR").Range("I56").Value
        Sheets("CrCn").Range("D12").Value = Sheets("A&C-MYR").Range("G62").Value
        Sheets("CrCn").Range("E12").Value = Sheets("Input 2").Range("C24").Value
        Sheets("CrCn").Range("F12").Value = Sheets("Input 2").Range("C25").Value
        Sheets("CrCn").Range("G12").Value = Sheets("Input 2").Range("C26").Value
        Sheets("CrCn").Range("H12").Value = Sheets("Input 2").Range("C29").Value
        Sheets("CrCn").Range("I12").Value = Sheets("Input 2").Range("C30").Value
'Update Creation Table
        Sheets("CrCn").Range("L12").Value = Sheets("Input 2").Range("C15").Value
        Sheets("CrCn").Range("M12").Value = Sheets("Input 2").Range("C16").Value
        Sheets("CrCn").Range("N12").Value = Sheets("Input 2").Range("C17").Value
        Sheets("CrCn").Range("O12").Value = Sheets("Input 2").Range("C20").Value
        Sheets("CrCn").Range("P12").Value = Sheets("Input 2").Range("C21").Value
'C-MYR
'Update Cancellation Table
        Sheets("CrCn").Range("U12").Value = Sheets("A&C-MYR").Range("S56").Value
        Sheets("CrCn").Range("V12").Value = Sheets("A&C-MYR").Range("Q62").Value
        Sheets("CrCn").Range("W12").Value = Sheets("Input 2").Range("D24").Value
        Sheets("CrCn").Range("X12").Value = Sheets("Input 2").Range("D25").Value
        Sheets("CrCn").Range("Y12").Value = Sheets("Input 2").Range("D26").Value
        Sheets("CrCn").Range("Z12").Value = Sheets("Input 2").Range("D29").Value
        Sheets("CrCn").Range("AA12").Value = Sheets("Input 2").Range("D30").Value
'Update Creation Table
        Sheets("CrCn").Range("AD12").Value = Sheets("Input 2").Range("D15").Value
        Sheets("CrCn").Range("AE12").Value = Sheets("Input 2").Range("D16").Value
        Sheets("CrCn").Range("AF12").Value = Sheets("Input 2").Range("D17").Value
        Sheets("CrCn").Range("AG12").Value = Sheets("Input 2").Range("D20").Value
        Sheets("CrCn").Range("AH12").Value = Sheets("Input 2").Range("D21").Value
Case 4
'A-MYR
'Update Cancellation Table
        Sheets("CrCn").Range("C13").Value = Sheets("A&C-MYR").Range("I56").Value
        Sheets("CrCn").Range("D13").Value = Sheets("A&C-MYR").Range("G62").Value
        Sheets("CrCn").Range("E13").Value = Sheets("Input 2").Range("C24").Value
        Sheets("CrCn").Range("F13").Value = Sheets("Input 2").Range("C25").Value
        Sheets("CrCn").Range("G13").Value = Sheets("Input 2").Range("C26").Value
        Sheets("CrCn").Range("H13").Value = Sheets("Input 2").Range("C29").Value
        Sheets("CrCn").Range("I13").Value = Sheets("Input 2").Range("C30").Value
'Update Creation Table
        Sheets("CrCn").Range("L13").Value = Sheets("Input 2").Range("C15").Value
        Sheets("CrCn").Range("M13").Value = Sheets("Input 2").Range("C16").Value
        Sheets("CrCn").Range("N13").Value = Sheets("Input 2").Range("C17").Value
        Sheets("CrCn").Range("O13").Value = Sheets("Input 2").Range("C20").Value
        Sheets("CrCn").Range("P13").Value = Sheets("Input 2").Range("C21").Value
'C-MYR
'Update Cancellation Table
        Sheets("CrCn").Range("U13").Value = Sheets("A&C-MYR").Range("S56").Value
        Sheets("CrCn").Range("V13").Value = Sheets("A&C-MYR").Range("Q62").Value
        Sheets("CrCn").Range("W13").Value = Sheets("Input 2").Range("D24").Value
        Sheets("CrCn").Range("X13").Value = Sheets("Input 2").Range("D25").Value
        Sheets("CrCn").Range("Y13").Value = Sheets("Input 2").Range("D26").Value
        Sheets("CrCn").Range("Z13").Value = Sheets("Input 2").Range("D29").Value
        Sheets("CrCn").Range("AA13").Value = Sheets("Input 2").Range("D30").Value
'Update Creation Table
        Sheets("CrCn").Range("AD13").Value = Sheets("Input 2").Range("D15").Value
        Sheets("CrCn").Range("AE13").Value = Sheets("Input 2").Range("D16").Value
        Sheets("CrCn").Range("AF13").Value = Sheets("Input 2").Range("D17").Value
        Sheets("CrCn").Range("AG13").Value = Sheets("Input 2").Range("D20").Value
        Sheets("CrCn").Range("AH13").Value = Sheets("Input 2").Range("D21").Value
Case 5
'A-MYR
'Update Cancellation Table
        Sheets("CrCn").Range("C14").Value = Sheets("A&C-MYR").Range("I56").Value
        Sheets("CrCn").Range("D14").Value = Sheets("A&C-MYR").Range("G62").Value
        Sheets("CrCn").Range("E14").Value = Sheets("Input 2").Range("C24").Value
        Sheets("CrCn").Range("F14").Value = Sheets("Input 2").Range("C25").Value
        Sheets("CrCn").Range("G14").Value = Sheets("Input 2").Range("C26").Value
        Sheets("CrCn").Range("H14").Value = Sheets("Input 2").Range("C29").Value
        Sheets("CrCn").Range("I14").Value = Sheets("Input 2").Range("C30").Value
'Update Creation Table
        Sheets("CrCn").Range("L14").Value = Sheets("Input 2").Range("C15").Value
        Sheets("CrCn").Range("M14").Value = Sheets("Input 2").Range("C16").Value
        Sheets("CrCn").Range("N14").Value = Sheets("Input 2").Range("C17").Value
        Sheets("CrCn").Range("O14").Value = Sheets("Input 2").Range("C20").Value
        Sheets("CrCn").Range("P14").Value = Sheets("Input 2").Range("C21").Value
'C-MYR
'Update Cancellation Table
        Sheets("CrCn").Range("U14").Value = Sheets("A&C-MYR").Range("S56").Value
        Sheets("CrCn").Range("V14").Value = Sheets("A&C-MYR").Range("Q62").Value
        Sheets("CrCn").Range("W14").Value = Sheets("Input 2").Range("D24").Value
        Sheets("CrCn").Range("X14").Value = Sheets("Input 2").Range("D25").Value
        Sheets("CrCn").Range("Y14").Value = Sheets("Input 2").Range("D26").Value
        Sheets("CrCn").Range("Z14").Value = Sheets("Input 2").Range("D29").Value
        Sheets("CrCn").Range("AA14").Value = Sheets("Input 2").Range("D30").Value
'Update Creation Table
        Sheets("CrCn").Range("AD14").Value = Sheets("Input 2").Range("D15").Value
        Sheets("CrCn").Range("AE14").Value = Sheets("Input 2").Range("D16").Value
        Sheets("CrCn").Range("AF14").Value = Sheets("Input 2").Range("D17").Value
        Sheets("CrCn").Range("AG14").Value = Sheets("Input 2").Range("D20").Value
        Sheets("CrCn").Range("AH14").Value = Sheets("Input 2").Range("D21").Value
Case 6
'A-MYR
'Update Cancellation Table
        Sheets("CrCn").Range("C15").Value = Sheets("A&C-MYR").Range("I56").Value
        Sheets("CrCn").Range("D15").Value = Sheets("A&C-MYR").Range("G62").Value
        Sheets("CrCn").Range("E15").Value = Sheets("Input 2").Range("C24").Value
        Sheets("CrCn").Range("F15").Value = Sheets("Input 2").Range("C25").Value
        Sheets("CrCn").Range("G15").Value = Sheets("Input 2").Range("C26").Value
        Sheets("CrCn").Range("H15").Value = Sheets("Input 2").Range("C29").Value
        Sheets("CrCn").Range("I15").Value = Sheets("Input 2").Range("C30").Value
'Update Creation Table
        Sheets("CrCn").Range("L15").Value = Sheets("Input 2").Range("C15").Value
        Sheets("CrCn").Range("M15").Value = Sheets("Input 2").Range("C16").Value
        Sheets("CrCn").Range("N15").Value = Sheets("Input 2").Range("C17").Value
        Sheets("CrCn").Range("O15").Value = Sheets("Input 2").Range("C20").Value
        Sheets("CrCn").Range("P15").Value = Sheets("Input 2").Range("C21").Value
'C-MYR
'Update Cancellation Table
        Sheets("CrCn").Range("U15").Value = Sheets("A&C-MYR").Range("S56").Value
        Sheets("CrCn").Range("V15").Value = Sheets("A&C-MYR").Range("Q62").Value
        Sheets("CrCn").Range("W15").Value = Sheets("Input 2").Range("D24").Value
        Sheets("CrCn").Range("X15").Value = Sheets("Input 2").Range("D25").Value
        Sheets("CrCn").Range("Y15").Value = Sheets("Input 2").Range("D26").Value
        Sheets("CrCn").Range("Z15").Value = Sheets("Input 2").Range("D29").Value
        Sheets("CrCn").Range("AA15").Value = Sheets("Input 2").Range("D30").Value
'Update Creation Table
        Sheets("CrCn").Range("AD15").Value = Sheets("Input 2").Range("D15").Value
        Sheets("CrCn").Range("AE15").Value = Sheets("Input 2").Range("D16").Value
        Sheets("CrCn").Range("AF15").Value = Sheets("Input 2").Range("D17").Value
        Sheets("CrCn").Range("AG15").Value = Sheets("Input 2").Range("D20").Value
        Sheets("CrCn").Range("AH15").Value = Sheets("Input 2").Range("D21").Value
Case 7
'A-MYR
'Update Cancellation Table
        Sheets("CrCn").Range("C16").Value = Sheets("A&C-MYR").Range("I56").Value
        Sheets("CrCn").Range("D16").Value = Sheets("A&C-MYR").Range("G62").Value
        Sheets("CrCn").Range("E16").Value = Sheets("Input 2").Range("C24").Value
        Sheets("CrCn").Range("F16").Value = Sheets("Input 2").Range("C25").Value
        Sheets("CrCn").Range("G16").Value = Sheets("Input 2").Range("C26").Value
        Sheets("CrCn").Range("H16").Value = Sheets("Input 2").Range("C29").Value
        Sheets("CrCn").Range("I16").Value = Sheets("Input 2").Range("C30").Value
'Update Creation Table
        Sheets("CrCn").Range("L16").Value = Sheets("Input 2").Range("C15").Value
        Sheets("CrCn").Range("M16").Value = Sheets("Input 2").Range("C16").Value
        Sheets("CrCn").Range("N16").Value = Sheets("Input 2").Range("C17").Value
        Sheets("CrCn").Range("O16").Value = Sheets("Input 2").Range("C20").Value
        Sheets("CrCn").Range("P16").Value = Sheets("Input 2").Range("C21").Value
'C-MYR
'Update Cancellation Table
        Sheets("CrCn").Range("U16").Value = Sheets("A&C-MYR").Range("S56").Value
        Sheets("CrCn").Range("V16").Value = Sheets("A&C-MYR").Range("Q62").Value
        Sheets("CrCn").Range("W16").Value = Sheets("Input 2").Range("D24").Value
        Sheets("CrCn").Range("X16").Value = Sheets("Input 2").Range("D25").Value
        Sheets("CrCn").Range("Y16").Value = Sheets("Input 2").Range("D26").Value
        Sheets("CrCn").Range("Z16").Value = Sheets("Input 2").Range("D29").Value
        Sheets("CrCn").Range("AA16").Value = Sheets("Input 2").Range("D30").Value
'Update Creation Table
        Sheets("CrCn").Range("AD16").Value = Sheets("Input 2").Range("D15").Value
        Sheets("CrCn").Range("AE16").Value = Sheets("Input 2").Range("D16").Value
        Sheets("CrCn").Range("AF16").Value = Sheets("Input 2").Range("D17").Value
        Sheets("CrCn").Range("AG16").Value = Sheets("Input 2").Range("D20").Value
        Sheets("CrCn").Range("AH16").Value = Sheets("Input 2").Range("D21").Value
Case 8
'A-MYR
'Update Cancellation Table
        Sheets("CrCn").Range("C17").Value = Sheets("A&C-MYR").Range("I56").Value
        Sheets("CrCn").Range("D17").Value = Sheets("A&C-MYR").Range("G62").Value
        Sheets("CrCn").Range("E17").Value = Sheets("Input 2").Range("C24").Value
        Sheets("CrCn").Range("F17").Value = Sheets("Input 2").Range("C25").Value
        Sheets("CrCn").Range("G17").Value = Sheets("Input 2").Range("C26").Value
        Sheets("CrCn").Range("H17").Value = Sheets("Input 2").Range("C29").Value
        Sheets("CrCn").Range("I17").Value = Sheets("Input 2").Range("C30").Value
'Update Creation Table
        Sheets("CrCn").Range("L17").Value = Sheets("Input 2").Range("C15").Value
        Sheets("CrCn").Range("M17").Value = Sheets("Input 2").Range("C16").Value
        Sheets("CrCn").Range("N17").Value = Sheets("Input 2").Range("C17").Value
        Sheets("CrCn").Range("O17").Value = Sheets("Input 2").Range("C20").Value
        Sheets("CrCn").Range("P17").Value = Sheets("Input 2").Range("C21").Value
'C-MYR
'Update Cancellation Table
        Sheets("CrCn").Range("U17").Value = Sheets("A&C-MYR").Range("S56").Value
        Sheets("CrCn").Range("V17").Value = Sheets("A&C-MYR").Range("Q62").Value
        Sheets("CrCn").Range("W17").Value = Sheets("Input 2").Range("D24").Value
        Sheets("CrCn").Range("X17").Value = Sheets("Input 2").Range("D25").Value
        Sheets("CrCn").Range("Y17").Value = Sheets("Input 2").Range("D26").Value
        Sheets("CrCn").Range("Z17").Value = Sheets("Input 2").Range("D29").Value
        Sheets("CrCn").Range("AA17").Value = Sheets("Input 2").Range("D30").Value
'Update Creation Table
        Sheets("CrCn").Range("AD17").Value = Sheets("Input 2").Range("D15").Value
        Sheets("CrCn").Range("AE17").Value = Sheets("Input 2").Range("D16").Value
        Sheets("CrCn").Range("AF17").Value = Sheets("Input 2").Range("D17").Value
        Sheets("CrCn").Range("AG17").Value = Sheets("Input 2").Range("D20").Value
        Sheets("CrCn").Range("AH17").Value = Sheets("Input 2").Range("D21").Value
Case 9
'A-MYR
'Update Cancellation Table
        Sheets("CrCn").Range("C18").Value = Sheets("A&C-MYR").Range("I56").Value
        Sheets("CrCn").Range("D18").Value = Sheets("A&C-MYR").Range("G62").Value
        Sheets("CrCn").Range("E18").Value = Sheets("Input 2").Range("C24").Value
        Sheets("CrCn").Range("F18").Value = Sheets("Input 2").Range("C25").Value
        Sheets("CrCn").Range("G18").Value = Sheets("Input 2").Range("C26").Value
        Sheets("CrCn").Range("H18").Value = Sheets("Input 2").Range("C29").Value
        Sheets("CrCn").Range("I18").Value = Sheets("Input 2").Range("C30").Value
'Update Creation Table
        Sheets("CrCn").Range("L18").Value = Sheets("Input 2").Range("C15").Value
        Sheets("CrCn").Range("M18").Value = Sheets("Input 2").Range("C16").Value
        Sheets("CrCn").Range("N18").Value = Sheets("Input 2").Range("C17").Value
        Sheets("CrCn").Range("O18").Value = Sheets("Input 2").Range("C20").Value
        Sheets("CrCn").Range("P18").Value = Sheets("Input 2").Range("C21").Value
'C-MYR
'Update Cancellation Table
        Sheets("CrCn").Range("U18").Value = Sheets("A&C-MYR").Range("S56").Value
        Sheets("CrCn").Range("V18").Value = Sheets("A&C-MYR").Range("Q62").Value
        Sheets("CrCn").Range("W18").Value = Sheets("Input 2").Range("D24").Value
        Sheets("CrCn").Range("X18").Value = Sheets("Input 2").Range("D25").Value
        Sheets("CrCn").Range("Y18").Value = Sheets("Input 2").Range("D26").Value
        Sheets("CrCn").Range("Z18").Value = Sheets("Input 2").Range("D29").Value
        Sheets("CrCn").Range("AA18").Value = Sheets("Input 2").Range("D30").Value
'Update Creation Table
        Sheets("CrCn").Range("AD18").Value = Sheets("Input 2").Range("D15").Value
        Sheets("CrCn").Range("AE18").Value = Sheets("Input 2").Range("D16").Value
        Sheets("CrCn").Range("AF18").Value = Sheets("Input 2").Range("D17").Value
        Sheets("CrCn").Range("AG18").Value = Sheets("Input 2").Range("D20").Value
        Sheets("CrCn").Range("AH18").Value = Sheets("Input 2").Range("D21").Value
Case 10
'A-MYR
'Update Cancellation Table
        Sheets("CrCn").Range("C19").Value = Sheets("A&C-MYR").Range("I56").Value
        Sheets("CrCn").Range("D19").Value = Sheets("A&C-MYR").Range("G62").Value
        Sheets("CrCn").Range("E19").Value = Sheets("Input 2").Range("C24").Value
        Sheets("CrCn").Range("F19").Value = Sheets("Input 2").Range("C25").Value
        Sheets("CrCn").Range("G19").Value = Sheets("Input 2").Range("C26").Value
        Sheets("CrCn").Range("H19").Value = Sheets("Input 2").Range("C29").Value
        Sheets("CrCn").Range("I19").Value = Sheets("Input 2").Range("C30").Value
'Update Creation Table
        Sheets("CrCn").Range("L19").Value = Sheets("Input 2").Range("C15").Value
        Sheets("CrCn").Range("M19").Value = Sheets("Input 2").Range("C16").Value
        Sheets("CrCn").Range("N19").Value = Sheets("Input 2").Range("C17").Value
        Sheets("CrCn").Range("O19").Value = Sheets("Input 2").Range("C20").Value
        Sheets("CrCn").Range("P19").Value = Sheets("Input 2").Range("C21").Value
'C-MYR
'Update Cancellation Table
        Sheets("CrCn").Range("U19").Value = Sheets("A&C-MYR").Range("S56").Value
        Sheets("CrCn").Range("V19").Value = Sheets("A&C-MYR").Range("Q62").Value
        Sheets("CrCn").Range("W19").Value = Sheets("Input 2").Range("D24").Value
        Sheets("CrCn").Range("X19").Value = Sheets("Input 2").Range("D25").Value
        Sheets("CrCn").Range("Y19").Value = Sheets("Input 2").Range("D26").Value
        Sheets("CrCn").Range("Z19").Value = Sheets("Input 2").Range("D29").Value
        Sheets("CrCn").Range("AA19").Value = Sheets("Input 2").Range("D30").Value
'Update Creation Table
        Sheets("CrCn").Range("AD19").Value = Sheets("Input 2").Range("D15").Value
        Sheets("CrCn").Range("AE19").Value = Sheets("Input 2").Range("D16").Value
        Sheets("CrCn").Range("AF19").Value = Sheets("Input 2").Range("D17").Value
        Sheets("CrCn").Range("AG19").Value = Sheets("Input 2").Range("D20").Value
        Sheets("CrCn").Range("AH19").Value = Sheets("Input 2").Range("D21").Value
Case 11
'A-MYR
'Update Cancellation Table
        Sheets("CrCn").Range("C20").Value = Sheets("A&C-MYR").Range("I56").Value
        Sheets("CrCn").Range("D20").Value = Sheets("A&C-MYR").Range("G62").Value
        Sheets("CrCn").Range("E20").Value = Sheets("Input 2").Range("C24").Value
        Sheets("CrCn").Range("F20").Value = Sheets("Input 2").Range("C25").Value
        Sheets("CrCn").Range("G20").Value = Sheets("Input 2").Range("C26").Value
        Sheets("CrCn").Range("H20").Value = Sheets("Input 2").Range("C29").Value
        Sheets("CrCn").Range("I20").Value = Sheets("Input 2").Range("C30").Value
'Update Creation Table
        Sheets("CrCn").Range("L20").Value = Sheets("Input 2").Range("C15").Value
        Sheets("CrCn").Range("M20").Value = Sheets("Input 2").Range("C16").Value
        Sheets("CrCn").Range("N20").Value = Sheets("Input 2").Range("C17").Value
        Sheets("CrCn").Range("O20").Value = Sheets("Input 2").Range("C20").Value
        Sheets("CrCn").Range("P20").Value = Sheets("Input 2").Range("C21").Value
'C-MYR
'Update Cancellation Table
        Sheets("CrCn").Range("U20").Value = Sheets("A&C-MYR").Range("S56").Value
        Sheets("CrCn").Range("V20").Value = Sheets("A&C-MYR").Range("Q62").Value
        Sheets("CrCn").Range("W20").Value = Sheets("Input 2").Range("D24").Value
        Sheets("CrCn").Range("X20").Value = Sheets("Input 2").Range("D25").Value
        Sheets("CrCn").Range("Y20").Value = Sheets("Input 2").Range("D26").Value
        Sheets("CrCn").Range("Z20").Value = Sheets("Input 2").Range("D29").Value
        Sheets("CrCn").Range("AA20").Value = Sheets("Input 2").Range("D30").Value
'Update Creation Table
        Sheets("CrCn").Range("AD20").Value = Sheets("Input 2").Range("D15").Value
        Sheets("CrCn").Range("AE20").Value = Sheets("Input 2").Range("D16").Value
        Sheets("CrCn").Range("AF20").Value = Sheets("Input 2").Range("D17").Value
        Sheets("CrCn").Range("AG20").Value = Sheets("Input 2").Range("D20").Value
        Sheets("CrCn").Range("AH20").Value = Sheets("Input 2").Range("D21").Value
Case 12
'A-MYR
'Update Cancellation Table
        Sheets("CrCn").Range("C21").Value = Sheets("A&C-MYR").Range("I56").Value
        Sheets("CrCn").Range("D21").Value = Sheets("A&C-MYR").Range("G62").Value
        Sheets("CrCn").Range("E21").Value = Sheets("Input 2").Range("C24").Value
        Sheets("CrCn").Range("F21").Value = Sheets("Input 2").Range("C25").Value
        Sheets("CrCn").Range("G21").Value = Sheets("Input 2").Range("C26").Value
        Sheets("CrCn").Range("H21").Value = Sheets("Input 2").Range("C29").Value
        Sheets("CrCn").Range("I21").Value = Sheets("Input 2").Range("C30").Value
'Update Creation Table
        Sheets("CrCn").Range("L21").Value = Sheets("Input 2").Range("C15").Value
        Sheets("CrCn").Range("M21").Value = Sheets("Input 2").Range("C16").Value
        Sheets("CrCn").Range("N21").Value = Sheets("Input 2").Range("C17").Value
        Sheets("CrCn").Range("O21").Value = Sheets("Input 2").Range("C20").Value
        Sheets("CrCn").Range("P21").Value = Sheets("Input 2").Range("C21").Value
'C-MYR
'Update Cancellation Table
        Sheets("CrCn").Range("U21").Value = Sheets("A&C-MYR").Range("S56").Value
        Sheets("CrCn").Range("V21").Value = Sheets("A&C-MYR").Range("Q62").Value
        Sheets("CrCn").Range("W21").Value = Sheets("Input 2").Range("D24").Value
        Sheets("CrCn").Range("X21").Value = Sheets("Input 2").Range("D25").Value
        Sheets("CrCn").Range("Y21").Value = Sheets("Input 2").Range("D26").Value
        Sheets("CrCn").Range("Z21").Value = Sheets("Input 2").Range("D29").Value
        Sheets("CrCn").Range("AA21").Value = Sheets("Input 2").Range("D30").Value
'Update Creation Table
        Sheets("CrCn").Range("AD21").Value = Sheets("Input 2").Range("D15").Value
        Sheets("CrCn").Range("AE21").Value = Sheets("Input 2").Range("D16").Value
        Sheets("CrCn").Range("AF21").Value = Sheets("Input 2").Range("D17").Value
        Sheets("CrCn").Range("AG21").Value = Sheets("Input 2").Range("D20").Value
        Sheets("CrCn").Range("AH21").Value = Sheets("Input 2").Range("D21").Value
Case 13
'A-MYR
'Update Cancellation Table
        Sheets("CrCn").Range("C22").Value = Sheets("A&C-MYR").Range("I56").Value
        Sheets("CrCn").Range("D22").Value = Sheets("A&C-MYR").Range("G62").Value
        Sheets("CrCn").Range("E22").Value = Sheets("Input 2").Range("C24").Value
        Sheets("CrCn").Range("F22").Value = Sheets("Input 2").Range("C25").Value
        Sheets("CrCn").Range("G22").Value = Sheets("Input 2").Range("C26").Value
        Sheets("CrCn").Range("H22").Value = Sheets("Input 2").Range("C29").Value
        Sheets("CrCn").Range("I22").Value = Sheets("Input 2").Range("C30").Value
'Update Creation Table
        Sheets("CrCn").Range("L22").Value = Sheets("Input 2").Range("C15").Value
        Sheets("CrCn").Range("M22").Value = Sheets("Input 2").Range("C16").Value
        Sheets("CrCn").Range("N22").Value = Sheets("Input 2").Range("C17").Value
        Sheets("CrCn").Range("O22").Value = Sheets("Input 2").Range("C20").Value
        Sheets("CrCn").Range("P22").Value = Sheets("Input 2").Range("C21").Value
'C-MYR
'Update Cancellation Table
        Sheets("CrCn").Range("U22").Value = Sheets("A&C-MYR").Range("S56").Value
        Sheets("CrCn").Range("V22").Value = Sheets("A&C-MYR").Range("Q62").Value
        Sheets("CrCn").Range("W22").Value = Sheets("Input 2").Range("D24").Value
        Sheets("CrCn").Range("X22").Value = Sheets("Input 2").Range("D25").Value
        Sheets("CrCn").Range("Y22").Value = Sheets("Input 2").Range("D26").Value
        Sheets("CrCn").Range("Z22").Value = Sheets("Input 2").Range("D29").Value
        Sheets("CrCn").Range("AA22").Value = Sheets("Input 2").Range("D30").Value
'Update Creation Table
        Sheets("CrCn").Range("AD22").Value = Sheets("Input 2").Range("D15").Value
        Sheets("CrCn").Range("AE22").Value = Sheets("Input 2").Range("D16").Value
        Sheets("CrCn").Range("AF22").Value = Sheets("Input 2").Range("D17").Value
        Sheets("CrCn").Range("AG22").Value = Sheets("Input 2").Range("D20").Value
        Sheets("CrCn").Range("AH22").Value = Sheets("Input 2").Range("D21").Value
Case 14
'A-MYR
'Update Cancellation Table
        Sheets("CrCn").Range("C23").Value = Sheets("A&C-MYR").Range("I56").Value
        Sheets("CrCn").Range("D23").Value = Sheets("A&C-MYR").Range("G62").Value
        Sheets("CrCn").Range("E23").Value = Sheets("Input 2").Range("C24").Value
        Sheets("CrCn").Range("F23").Value = Sheets("Input 2").Range("C25").Value
        Sheets("CrCn").Range("G23").Value = Sheets("Input 2").Range("C26").Value
        Sheets("CrCn").Range("H23").Value = Sheets("Input 2").Range("C29").Value
        Sheets("CrCn").Range("I23").Value = Sheets("Input 2").Range("C30").Value
'Update Creation Table
        Sheets("CrCn").Range("L23").Value = Sheets("Input 2").Range("C15").Value
        Sheets("CrCn").Range("M23").Value = Sheets("Input 2").Range("C16").Value
        Sheets("CrCn").Range("N23").Value = Sheets("Input 2").Range("C17").Value
        Sheets("CrCn").Range("O23").Value = Sheets("Input 2").Range("C20").Value
        Sheets("CrCn").Range("P23").Value = Sheets("Input 2").Range("C21").Value
'C-MYR
'Update Cancellation Table
        Sheets("CrCn").Range("U23").Value = Sheets("A&C-MYR").Range("S56").Value
        Sheets("CrCn").Range("V23").Value = Sheets("A&C-MYR").Range("Q62").Value
        Sheets("CrCn").Range("W23").Value = Sheets("Input 2").Range("D24").Value
        Sheets("CrCn").Range("X23").Value = Sheets("Input 2").Range("D25").Value
        Sheets("CrCn").Range("Y23").Value = Sheets("Input 2").Range("D26").Value
        Sheets("CrCn").Range("Z23").Value = Sheets("Input 2").Range("D29").Value
        Sheets("CrCn").Range("AA23").Value = Sheets("Input 2").Range("D30").Value
'Update Creation Table
        Sheets("CrCn").Range("AD23").Value = Sheets("Input 2").Range("D15").Value
        Sheets("CrCn").Range("AE23").Value = Sheets("Input 2").Range("D16").Value
        Sheets("CrCn").Range("AF23").Value = Sheets("Input 2").Range("D17").Value
        Sheets("CrCn").Range("AG23").Value = Sheets("Input 2").Range("D20").Value
        Sheets("CrCn").Range("AH23").Value = Sheets("Input 2").Range("D21").Value
Case 15
'A-MYR
'Update Cancellation Table
        Sheets("CrCn").Range("C24").Value = Sheets("A&C-MYR").Range("I56").Value
        Sheets("CrCn").Range("D24").Value = Sheets("A&C-MYR").Range("G62").Value
        Sheets("CrCn").Range("E24").Value = Sheets("Input 2").Range("C24").Value
        Sheets("CrCn").Range("F24").Value = Sheets("Input 2").Range("C25").Value
        Sheets("CrCn").Range("G24").Value = Sheets("Input 2").Range("C26").Value
        Sheets("CrCn").Range("H24").Value = Sheets("Input 2").Range("C29").Value
        Sheets("CrCn").Range("I24").Value = Sheets("Input 2").Range("C30").Value
'Update Creation Table
        Sheets("CrCn").Range("L24").Value = Sheets("Input 2").Range("C15").Value
        Sheets("CrCn").Range("M24").Value = Sheets("Input 2").Range("C16").Value
        Sheets("CrCn").Range("N24").Value = Sheets("Input 2").Range("C17").Value
        Sheets("CrCn").Range("O24").Value = Sheets("Input 2").Range("C20").Value
        Sheets("CrCn").Range("P24").Value = Sheets("Input 2").Range("C21").Value
'C-MYR
'Update Cancellation Table
        Sheets("CrCn").Range("U24").Value = Sheets("A&C-MYR").Range("S56").Value
        Sheets("CrCn").Range("V24").Value = Sheets("A&C-MYR").Range("Q62").Value
        Sheets("CrCn").Range("W24").Value = Sheets("Input 2").Range("D24").Value
        Sheets("CrCn").Range("X24").Value = Sheets("Input 2").Range("D25").Value
        Sheets("CrCn").Range("Y24").Value = Sheets("Input 2").Range("D26").Value
        Sheets("CrCn").Range("Z24").Value = Sheets("Input 2").Range("D29").Value
        Sheets("CrCn").Range("AA24").Value = Sheets("Input 2").Range("D30").Value
'Update Creation Table
        Sheets("CrCn").Range("AD24").Value = Sheets("Input 2").Range("D15").Value
        Sheets("CrCn").Range("AE24").Value = Sheets("Input 2").Range("D16").Value
        Sheets("CrCn").Range("AF24").Value = Sheets("Input 2").Range("D17").Value
        Sheets("CrCn").Range("AG24").Value = Sheets("Input 2").Range("D20").Value
        Sheets("CrCn").Range("AH24").Value = Sheets("Input 2").Range("D21").Value
Case 16
'A-MYR
'Update Cancellation Table
        Sheets("CrCn").Range("C25").Value = Sheets("A&C-MYR").Range("I56").Value
        Sheets("CrCn").Range("D25").Value = Sheets("A&C-MYR").Range("G62").Value
        Sheets("CrCn").Range("E25").Value = Sheets("Input 2").Range("C24").Value
        Sheets("CrCn").Range("F25").Value = Sheets("Input 2").Range("C25").Value
        Sheets("CrCn").Range("G25").Value = Sheets("Input 2").Range("C26").Value
        Sheets("CrCn").Range("H25").Value = Sheets("Input 2").Range("C29").Value
        Sheets("CrCn").Range("I25").Value = Sheets("Input 2").Range("C30").Value
'Update Creation Table
        Sheets("CrCn").Range("L25").Value = Sheets("Input 2").Range("C15").Value
        Sheets("CrCn").Range("M25").Value = Sheets("Input 2").Range("C16").Value
        Sheets("CrCn").Range("N25").Value = Sheets("Input 2").Range("C17").Value
        Sheets("CrCn").Range("O25").Value = Sheets("Input 2").Range("C20").Value
        Sheets("CrCn").Range("P25").Value = Sheets("Input 2").Range("C21").Value
'C-MYR
'Update Cancellation Table
        Sheets("CrCn").Range("U25").Value = Sheets("A&C-MYR").Range("S56").Value
        Sheets("CrCn").Range("V25").Value = Sheets("A&C-MYR").Range("Q62").Value
        Sheets("CrCn").Range("W25").Value = Sheets("Input 2").Range("D24").Value
        Sheets("CrCn").Range("X25").Value = Sheets("Input 2").Range("D25").Value
        Sheets("CrCn").Range("Y25").Value = Sheets("Input 2").Range("D26").Value
        Sheets("CrCn").Range("Z25").Value = Sheets("Input 2").Range("D29").Value
        Sheets("CrCn").Range("AA25").Value = Sheets("Input 2").Range("D30").Value
'Update Creation Table
        Sheets("CrCn").Range("AD25").Value = Sheets("Input 2").Range("D15").Value
        Sheets("CrCn").Range("AE25").Value = Sheets("Input 2").Range("D16").Value
        Sheets("CrCn").Range("AF25").Value = Sheets("Input 2").Range("D17").Value
        Sheets("CrCn").Range("AG25").Value = Sheets("Input 2").Range("D20").Value
        Sheets("CrCn").Range("AH25").Value = Sheets("Input 2").Range("D21").Value
Case 17
'A-MYR
'Update Cancellation Table
        Sheets("CrCn").Range("C26").Value = Sheets("A&C-MYR").Range("I56").Value
        Sheets("CrCn").Range("D26").Value = Sheets("A&C-MYR").Range("G62").Value
        Sheets("CrCn").Range("E26").Value = Sheets("Input 2").Range("C24").Value
        Sheets("CrCn").Range("F26").Value = Sheets("Input 2").Range("C25").Value
        Sheets("CrCn").Range("G26").Value = Sheets("Input 2").Range("C26").Value
        Sheets("CrCn").Range("H26").Value = Sheets("Input 2").Range("C29").Value
        Sheets("CrCn").Range("I26").Value = Sheets("Input 2").Range("C30").Value
'Update Creation Table
        Sheets("CrCn").Range("L26").Value = Sheets("Input 2").Range("C15").Value
        Sheets("CrCn").Range("M26").Value = Sheets("Input 2").Range("C16").Value
        Sheets("CrCn").Range("N26").Value = Sheets("Input 2").Range("C17").Value
        Sheets("CrCn").Range("O26").Value = Sheets("Input 2").Range("C20").Value
        Sheets("CrCn").Range("P26").Value = Sheets("Input 2").Range("C21").Value
'C-MYR
'Update Cancellation Table
        Sheets("CrCn").Range("U26").Value = Sheets("A&C-MYR").Range("S56").Value
        Sheets("CrCn").Range("V26").Value = Sheets("A&C-MYR").Range("Q62").Value
        Sheets("CrCn").Range("W26").Value = Sheets("Input 2").Range("D24").Value
        Sheets("CrCn").Range("X26").Value = Sheets("Input 2").Range("D25").Value
        Sheets("CrCn").Range("Y26").Value = Sheets("Input 2").Range("D26").Value
        Sheets("CrCn").Range("Z26").Value = Sheets("Input 2").Range("D29").Value
        Sheets("CrCn").Range("AA26").Value = Sheets("Input 2").Range("D30").Value
'Update Creation Table
        Sheets("CrCn").Range("AD26").Value = Sheets("Input 2").Range("D15").Value
        Sheets("CrCn").Range("AE26").Value = Sheets("Input 2").Range("D16").Value
        Sheets("CrCn").Range("AF26").Value = Sheets("Input 2").Range("D17").Value
        Sheets("CrCn").Range("AG26").Value = Sheets("Input 2").Range("D20").Value
        Sheets("CrCn").Range("AH26").Value = Sheets("Input 2").Range("D21").Value
Case 18
'A-MYR
'Update Cancellation Table
        Sheets("CrCn").Range("C27").Value = Sheets("A&C-MYR").Range("I56").Value
        Sheets("CrCn").Range("D27").Value = Sheets("A&C-MYR").Range("G62").Value
        Sheets("CrCn").Range("E27").Value = Sheets("Input 2").Range("C24").Value
        Sheets("CrCn").Range("F27").Value = Sheets("Input 2").Range("C25").Value
        Sheets("CrCn").Range("G27").Value = Sheets("Input 2").Range("C26").Value
        Sheets("CrCn").Range("H27").Value = Sheets("Input 2").Range("C29").Value
        Sheets("CrCn").Range("I27").Value = Sheets("Input 2").Range("C30").Value
'Update Creation Table
        Sheets("CrCn").Range("L27").Value = Sheets("Input 2").Range("C15").Value
        Sheets("CrCn").Range("M27").Value = Sheets("Input 2").Range("C16").Value
        Sheets("CrCn").Range("N27").Value = Sheets("Input 2").Range("C17").Value
        Sheets("CrCn").Range("O27").Value = Sheets("Input 2").Range("C20").Value
        Sheets("CrCn").Range("P27").Value = Sheets("Input 2").Range("C21").Value
'C-MYR
'Update Cancellation Table
        Sheets("CrCn").Range("U27").Value = Sheets("A&C-MYR").Range("S56").Value
        Sheets("CrCn").Range("V27").Value = Sheets("A&C-MYR").Range("Q62").Value
        Sheets("CrCn").Range("W27").Value = Sheets("Input 2").Range("D24").Value
        Sheets("CrCn").Range("X27").Value = Sheets("Input 2").Range("D25").Value
        Sheets("CrCn").Range("Y27").Value = Sheets("Input 2").Range("D26").Value
        Sheets("CrCn").Range("Z27").Value = Sheets("Input 2").Range("D29").Value
        Sheets("CrCn").Range("AA27").Value = Sheets("Input 2").Range("D30").Value
'Update Creation Table
        Sheets("CrCn").Range("AD27").Value = Sheets("Input 2").Range("D15").Value
        Sheets("CrCn").Range("AE27").Value = Sheets("Input 2").Range("D16").Value
        Sheets("CrCn").Range("AF27").Value = Sheets("Input 2").Range("D17").Value
        Sheets("CrCn").Range("AG27").Value = Sheets("Input 2").Range("D20").Value
        Sheets("CrCn").Range("AH27").Value = Sheets("Input 2").Range("D21").Value
Case 19
'A-MYR
'Update Cancellation Table
        Sheets("CrCn").Range("C28").Value = Sheets("A&C-MYR").Range("I56").Value
        Sheets("CrCn").Range("D28").Value = Sheets("A&C-MYR").Range("G62").Value
        Sheets("CrCn").Range("E28").Value = Sheets("Input 2").Range("C24").Value
        Sheets("CrCn").Range("F28").Value = Sheets("Input 2").Range("C25").Value
        Sheets("CrCn").Range("G28").Value = Sheets("Input 2").Range("C26").Value
        Sheets("CrCn").Range("H28").Value = Sheets("Input 2").Range("C29").Value
        Sheets("CrCn").Range("I28").Value = Sheets("Input 2").Range("C30").Value
'Update Creation Table
        Sheets("CrCn").Range("L28").Value = Sheets("Input 2").Range("C15").Value
        Sheets("CrCn").Range("M28").Value = Sheets("Input 2").Range("C16").Value
        Sheets("CrCn").Range("N28").Value = Sheets("Input 2").Range("C17").Value
        Sheets("CrCn").Range("O28").Value = Sheets("Input 2").Range("C20").Value
        Sheets("CrCn").Range("P28").Value = Sheets("Input 2").Range("C21").Value
'C-MYR
'Update Cancellation Table
        Sheets("CrCn").Range("U28").Value = Sheets("A&C-MYR").Range("S56").Value
        Sheets("CrCn").Range("V28").Value = Sheets("A&C-MYR").Range("Q62").Value
        Sheets("CrCn").Range("W28").Value = Sheets("Input 2").Range("D24").Value
        Sheets("CrCn").Range("X28").Value = Sheets("Input 2").Range("D25").Value
        Sheets("CrCn").Range("Y28").Value = Sheets("Input 2").Range("D26").Value
        Sheets("CrCn").Range("Z28").Value = Sheets("Input 2").Range("D29").Value
        Sheets("CrCn").Range("AA28").Value = Sheets("Input 2").Range("D30").Value
'Update Creation Table
        Sheets("CrCn").Range("AD28").Value = Sheets("Input 2").Range("D15").Value
        Sheets("CrCn").Range("AE28").Value = Sheets("Input 2").Range("D16").Value
        Sheets("CrCn").Range("AF28").Value = Sheets("Input 2").Range("D17").Value
        Sheets("CrCn").Range("AG28").Value = Sheets("Input 2").Range("D20").Value
        Sheets("CrCn").Range("AH28").Value = Sheets("Input 2").Range("D21").Value
Case 20
'A-MYR
'Update Cancellation Table
        Sheets("CrCn").Range("C29").Value = Sheets("A&C-MYR").Range("I56").Value
        Sheets("CrCn").Range("D29").Value = Sheets("A&C-MYR").Range("G62").Value
        Sheets("CrCn").Range("E29").Value = Sheets("Input 2").Range("C24").Value
        Sheets("CrCn").Range("F29").Value = Sheets("Input 2").Range("C25").Value
        Sheets("CrCn").Range("G29").Value = Sheets("Input 2").Range("C26").Value
        Sheets("CrCn").Range("H29").Value = Sheets("Input 2").Range("C29").Value
        Sheets("CrCn").Range("I29").Value = Sheets("Input 2").Range("C30").Value
'Update Creation Table
        Sheets("CrCn").Range("L29").Value = Sheets("Input 2").Range("C15").Value
        Sheets("CrCn").Range("M29").Value = Sheets("Input 2").Range("C16").Value
        Sheets("CrCn").Range("N29").Value = Sheets("Input 2").Range("C17").Value
        Sheets("CrCn").Range("O29").Value = Sheets("Input 2").Range("C20").Value
        Sheets("CrCn").Range("P29").Value = Sheets("Input 2").Range("C21").Value
'C-MYR
'Update Cancellation Table
        Sheets("CrCn").Range("U29").Value = Sheets("A&C-MYR").Range("S56").Value
        Sheets("CrCn").Range("V29").Value = Sheets("A&C-MYR").Range("Q62").Value
        Sheets("CrCn").Range("W29").Value = Sheets("Input 2").Range("D24").Value
        Sheets("CrCn").Range("X29").Value = Sheets("Input 2").Range("D25").Value
        Sheets("CrCn").Range("Y29").Value = Sheets("Input 2").Range("D26").Value
        Sheets("CrCn").Range("Z29").Value = Sheets("Input 2").Range("D29").Value
        Sheets("CrCn").Range("AA29").Value = Sheets("Input 2").Range("D30").Value
'Update Creation Table
        Sheets("CrCn").Range("AD29").Value = Sheets("Input 2").Range("D15").Value
        Sheets("CrCn").Range("AE29").Value = Sheets("Input 2").Range("D16").Value
        Sheets("CrCn").Range("AF29").Value = Sheets("Input 2").Range("D17").Value
        Sheets("CrCn").Range("AG29").Value = Sheets("Input 2").Range("D20").Value
        Sheets("CrCn").Range("AH29").Value = Sheets("Input 2").Range("D21").Value
Case 21
'A-MYR
'Update Cancellation Table
        Sheets("CrCn").Range("C30").Value = Sheets("A&C-MYR").Range("I56").Value
        Sheets("CrCn").Range("D30").Value = Sheets("A&C-MYR").Range("G62").Value
        Sheets("CrCn").Range("E30").Value = Sheets("Input 2").Range("C24").Value
        Sheets("CrCn").Range("F30").Value = Sheets("Input 2").Range("C25").Value
        Sheets("CrCn").Range("G30").Value = Sheets("Input 2").Range("C26").Value
        Sheets("CrCn").Range("H30").Value = Sheets("Input 2").Range("C29").Value
        Sheets("CrCn").Range("I30").Value = Sheets("Input 2").Range("C30").Value
'Update Creation Table
        Sheets("CrCn").Range("L30").Value = Sheets("Input 2").Range("C15").Value
        Sheets("CrCn").Range("M30").Value = Sheets("Input 2").Range("C16").Value
        Sheets("CrCn").Range("N30").Value = Sheets("Input 2").Range("C17").Value
        Sheets("CrCn").Range("O30").Value = Sheets("Input 2").Range("C20").Value
        Sheets("CrCn").Range("P30").Value = Sheets("Input 2").Range("C21").Value
'C-MYR
'Update Cancellation Table
        Sheets("CrCn").Range("U30").Value = Sheets("A&C-MYR").Range("S56").Value
        Sheets("CrCn").Range("V30").Value = Sheets("A&C-MYR").Range("Q62").Value
        Sheets("CrCn").Range("W30").Value = Sheets("Input 2").Range("D24").Value
        Sheets("CrCn").Range("X30").Value = Sheets("Input 2").Range("D25").Value
        Sheets("CrCn").Range("Y30").Value = Sheets("Input 2").Range("D26").Value
        Sheets("CrCn").Range("Z30").Value = Sheets("Input 2").Range("D29").Value
        Sheets("CrCn").Range("AA30").Value = Sheets("Input 2").Range("D30").Value
'Update Creation Table
        Sheets("CrCn").Range("AD30").Value = Sheets("Input 2").Range("D15").Value
        Sheets("CrCn").Range("AE30").Value = Sheets("Input 2").Range("D16").Value
        Sheets("CrCn").Range("AF30").Value = Sheets("Input 2").Range("D17").Value
        Sheets("CrCn").Range("AG30").Value = Sheets("Input 2").Range("D20").Value
        Sheets("CrCn").Range("AH30").Value = Sheets("Input 2").Range("D21").Value
Case 22
'A-MYR
'Update Cancellation Table
        Sheets("CrCn").Range("C31").Value = Sheets("A&C-MYR").Range("I56").Value
        Sheets("CrCn").Range("D31").Value = Sheets("A&C-MYR").Range("G62").Value
        Sheets("CrCn").Range("E31").Value = Sheets("Input 2").Range("C24").Value
        Sheets("CrCn").Range("F31").Value = Sheets("Input 2").Range("C25").Value
        Sheets("CrCn").Range("G31").Value = Sheets("Input 2").Range("C26").Value
        Sheets("CrCn").Range("H31").Value = Sheets("Input 2").Range("C29").Value
        Sheets("CrCn").Range("I31").Value = Sheets("Input 2").Range("C30").Value
'Update Creation Table
        Sheets("CrCn").Range("L31").Value = Sheets("Input 2").Range("C15").Value
        Sheets("CrCn").Range("M31").Value = Sheets("Input 2").Range("C16").Value
        Sheets("CrCn").Range("N31").Value = Sheets("Input 2").Range("C17").Value
        Sheets("CrCn").Range("O31").Value = Sheets("Input 2").Range("C20").Value
        Sheets("CrCn").Range("P31").Value = Sheets("Input 2").Range("C21").Value
'C-MYR
'Update Cancellation Table
        Sheets("CrCn").Range("U31").Value = Sheets("A&C-MYR").Range("S56").Value
        Sheets("CrCn").Range("V31").Value = Sheets("A&C-MYR").Range("Q62").Value
        Sheets("CrCn").Range("W31").Value = Sheets("Input 2").Range("D24").Value
        Sheets("CrCn").Range("X31").Value = Sheets("Input 2").Range("D25").Value
        Sheets("CrCn").Range("Y31").Value = Sheets("Input 2").Range("D26").Value
        Sheets("CrCn").Range("Z31").Value = Sheets("Input 2").Range("D29").Value
        Sheets("CrCn").Range("AA31").Value = Sheets("Input 2").Range("D30").Value
'Update Creation Table
        Sheets("CrCn").Range("AD31").Value = Sheets("Input 2").Range("D15").Value
        Sheets("CrCn").Range("AE31").Value = Sheets("Input 2").Range("D16").Value
        Sheets("CrCn").Range("AF31").Value = Sheets("Input 2").Range("D17").Value
        Sheets("CrCn").Range("AG31").Value = Sheets("Input 2").Range("D20").Value
        Sheets("CrCn").Range("AH31").Value = Sheets("Input 2").Range("D21").Value
Case 23
'A-MYR
'Update Cancellation Table
        Sheets("CrCn").Range("C32").Value = Sheets("A&C-MYR").Range("I56").Value
        Sheets("CrCn").Range("D32").Value = Sheets("A&C-MYR").Range("G62").Value
        Sheets("CrCn").Range("E32").Value = Sheets("Input 2").Range("C24").Value
        Sheets("CrCn").Range("F32").Value = Sheets("Input 2").Range("C25").Value
        Sheets("CrCn").Range("G32").Value = Sheets("Input 2").Range("C26").Value
        Sheets("CrCn").Range("H32").Value = Sheets("Input 2").Range("C29").Value
        Sheets("CrCn").Range("I32").Value = Sheets("Input 2").Range("C30").Value
'Update Creation Table
        Sheets("CrCn").Range("L32").Value = Sheets("Input 2").Range("C15").Value
        Sheets("CrCn").Range("M32").Value = Sheets("Input 2").Range("C16").Value
        Sheets("CrCn").Range("N32").Value = Sheets("Input 2").Range("C17").Value
        Sheets("CrCn").Range("O32").Value = Sheets("Input 2").Range("C20").Value
        Sheets("CrCn").Range("P32").Value = Sheets("Input 2").Range("C21").Value
'C-MYR
'Update Cancellation Table
        Sheets("CrCn").Range("U32").Value = Sheets("A&C-MYR").Range("S56").Value
        Sheets("CrCn").Range("V32").Value = Sheets("A&C-MYR").Range("Q62").Value
        Sheets("CrCn").Range("W32").Value = Sheets("Input 2").Range("D24").Value
        Sheets("CrCn").Range("X32").Value = Sheets("Input 2").Range("D25").Value
        Sheets("CrCn").Range("Y32").Value = Sheets("Input 2").Range("D26").Value
        Sheets("CrCn").Range("Z32").Value = Sheets("Input 2").Range("D29").Value
        Sheets("CrCn").Range("AA32").Value = Sheets("Input 2").Range("D30").Value
'Update Creation Table
        Sheets("CrCn").Range("AD32").Value = Sheets("Input 2").Range("D15").Value
        Sheets("CrCn").Range("AE32").Value = Sheets("Input 2").Range("D16").Value
        Sheets("CrCn").Range("AF32").Value = Sheets("Input 2").Range("D17").Value
        Sheets("CrCn").Range("AG32").Value = Sheets("Input 2").Range("D20").Value
        Sheets("CrCn").Range("AH32").Value = Sheets("Input 2").Range("D21").Value
Case 24
'A-MYR
'Update Cancellation Table
        Sheets("CrCn").Range("C33").Value = Sheets("A&C-MYR").Range("I56").Value
        Sheets("CrCn").Range("D33").Value = Sheets("A&C-MYR").Range("G62").Value
        Sheets("CrCn").Range("E33").Value = Sheets("Input 2").Range("C24").Value
        Sheets("CrCn").Range("F33").Value = Sheets("Input 2").Range("C25").Value
        Sheets("CrCn").Range("G33").Value = Sheets("Input 2").Range("C26").Value
        Sheets("CrCn").Range("H33").Value = Sheets("Input 2").Range("C29").Value
        Sheets("CrCn").Range("I33").Value = Sheets("Input 2").Range("C30").Value
'Update Creation Table
        Sheets("CrCn").Range("L33").Value = Sheets("Input 2").Range("C15").Value
        Sheets("CrCn").Range("M33").Value = Sheets("Input 2").Range("C16").Value
        Sheets("CrCn").Range("N33").Value = Sheets("Input 2").Range("C17").Value
        Sheets("CrCn").Range("O33").Value = Sheets("Input 2").Range("C20").Value
        Sheets("CrCn").Range("P33").Value = Sheets("Input 2").Range("C21").Value
'C-MYR
'Update Cancellation Table
        Sheets("CrCn").Range("U33").Value = Sheets("A&C-MYR").Range("S56").Value
        Sheets("CrCn").Range("V33").Value = Sheets("A&C-MYR").Range("Q62").Value
        Sheets("CrCn").Range("W33").Value = Sheets("Input 2").Range("D24").Value
        Sheets("CrCn").Range("X33").Value = Sheets("Input 2").Range("D25").Value
        Sheets("CrCn").Range("Y33").Value = Sheets("Input 2").Range("D26").Value
        Sheets("CrCn").Range("Z33").Value = Sheets("Input 2").Range("D29").Value
        Sheets("CrCn").Range("AA33").Value = Sheets("Input 2").Range("D30").Value
'Update Creation Table
        Sheets("CrCn").Range("AD33").Value = Sheets("Input 2").Range("D15").Value
        Sheets("CrCn").Range("AE33").Value = Sheets("Input 2").Range("D16").Value
        Sheets("CrCn").Range("AF33").Value = Sheets("Input 2").Range("D17").Value
        Sheets("CrCn").Range("AG33").Value = Sheets("Input 2").Range("D20").Value
        Sheets("CrCn").Range("AH33").Value = Sheets("Input 2").Range("D21").Value
Case 25
'A-MYR
'Update Cancellation Table
        Sheets("CrCn").Range("C34").Value = Sheets("A&C-MYR").Range("I56").Value
        Sheets("CrCn").Range("D34").Value = Sheets("A&C-MYR").Range("G62").Value
        Sheets("CrCn").Range("E34").Value = Sheets("Input 2").Range("C24").Value
        Sheets("CrCn").Range("F34").Value = Sheets("Input 2").Range("C25").Value
        Sheets("CrCn").Range("G34").Value = Sheets("Input 2").Range("C26").Value
        Sheets("CrCn").Range("H34").Value = Sheets("Input 2").Range("C29").Value
        Sheets("CrCn").Range("I34").Value = Sheets("Input 2").Range("C30").Value
'Update Creation Table
        Sheets("CrCn").Range("L34").Value = Sheets("Input 2").Range("C15").Value
        Sheets("CrCn").Range("M34").Value = Sheets("Input 2").Range("C16").Value
        Sheets("CrCn").Range("N34").Value = Sheets("Input 2").Range("C17").Value
        Sheets("CrCn").Range("O34").Value = Sheets("Input 2").Range("C20").Value
        Sheets("CrCn").Range("P34").Value = Sheets("Input 2").Range("C21").Value
'C-MYR
'Update Cancellation Table
        Sheets("CrCn").Range("U34").Value = Sheets("A&C-MYR").Range("S56").Value
        Sheets("CrCn").Range("V34").Value = Sheets("A&C-MYR").Range("Q62").Value
        Sheets("CrCn").Range("W34").Value = Sheets("Input 2").Range("D24").Value
        Sheets("CrCn").Range("X34").Value = Sheets("Input 2").Range("D25").Value
        Sheets("CrCn").Range("Y34").Value = Sheets("Input 2").Range("D26").Value
        Sheets("CrCn").Range("Z34").Value = Sheets("Input 2").Range("D29").Value
        Sheets("CrCn").Range("AA34").Value = Sheets("Input 2").Range("D30").Value
'Update Creation Table
        Sheets("CrCn").Range("AD34").Value = Sheets("Input 2").Range("D15").Value
        Sheets("CrCn").Range("AE34").Value = Sheets("Input 2").Range("D16").Value
        Sheets("CrCn").Range("AF34").Value = Sheets("Input 2").Range("D17").Value
        Sheets("CrCn").Range("AG34").Value = Sheets("Input 2").Range("D20").Value
        Sheets("CrCn").Range("AH34").Value = Sheets("Input 2").Range("D21").Value
Case 26
'A-MYR
'Update Cancellation Table
        Sheets("CrCn").Range("C35").Value = Sheets("A&C-MYR").Range("I56").Value
        Sheets("CrCn").Range("D35").Value = Sheets("A&C-MYR").Range("G62").Value
        Sheets("CrCn").Range("E35").Value = Sheets("Input 2").Range("C24").Value
        Sheets("CrCn").Range("F35").Value = Sheets("Input 2").Range("C25").Value
        Sheets("CrCn").Range("G35").Value = Sheets("Input 2").Range("C26").Value
        Sheets("CrCn").Range("H35").Value = Sheets("Input 2").Range("C29").Value
        Sheets("CrCn").Range("I35").Value = Sheets("Input 2").Range("C30").Value
'Update Creation Table
        Sheets("CrCn").Range("L35").Value = Sheets("Input 2").Range("C15").Value
        Sheets("CrCn").Range("M35").Value = Sheets("Input 2").Range("C16").Value
        Sheets("CrCn").Range("N35").Value = Sheets("Input 2").Range("C17").Value
        Sheets("CrCn").Range("O35").Value = Sheets("Input 2").Range("C20").Value
        Sheets("CrCn").Range("P35").Value = Sheets("Input 2").Range("C21").Value
'C-MYR
'Update Cancellation Table
        Sheets("CrCn").Range("U35").Value = Sheets("A&C-MYR").Range("S56").Value
        Sheets("CrCn").Range("V35").Value = Sheets("A&C-MYR").Range("Q62").Value
        Sheets("CrCn").Range("W35").Value = Sheets("Input 2").Range("D24").Value
        Sheets("CrCn").Range("X35").Value = Sheets("Input 2").Range("D25").Value
        Sheets("CrCn").Range("Y35").Value = Sheets("Input 2").Range("D26").Value
        Sheets("CrCn").Range("Z35").Value = Sheets("Input 2").Range("D29").Value
        Sheets("CrCn").Range("AA35").Value = Sheets("Input 2").Range("D30").Value
'Update Creation Table
        Sheets("CrCn").Range("AD35").Value = Sheets("Input 2").Range("D15").Value
        Sheets("CrCn").Range("AE35").Value = Sheets("Input 2").Range("D16").Value
        Sheets("CrCn").Range("AF35").Value = Sheets("Input 2").Range("D17").Value
        Sheets("CrCn").Range("AG35").Value = Sheets("Input 2").Range("D20").Value
        Sheets("CrCn").Range("AH35").Value = Sheets("Input 2").Range("D21").Value
Case 27
'A-MYR
'Update Cancellation Table
        Sheets("CrCn").Range("C36").Value = Sheets("A&C-MYR").Range("I56").Value
        Sheets("CrCn").Range("D36").Value = Sheets("A&C-MYR").Range("G62").Value
        Sheets("CrCn").Range("E36").Value = Sheets("Input 2").Range("C24").Value
        Sheets("CrCn").Range("F36").Value = Sheets("Input 2").Range("C25").Value
        Sheets("CrCn").Range("G36").Value = Sheets("Input 2").Range("C26").Value
        Sheets("CrCn").Range("H36").Value = Sheets("Input 2").Range("C29").Value
        Sheets("CrCn").Range("I36").Value = Sheets("Input 2").Range("C30").Value
'Update Creation Table
        Sheets("CrCn").Range("L36").Value = Sheets("Input 2").Range("C15").Value
        Sheets("CrCn").Range("M36").Value = Sheets("Input 2").Range("C16").Value
        Sheets("CrCn").Range("N36").Value = Sheets("Input 2").Range("C17").Value
        Sheets("CrCn").Range("O36").Value = Sheets("Input 2").Range("C20").Value
        Sheets("CrCn").Range("P36").Value = Sheets("Input 2").Range("C21").Value
'C-MYR
'Update Cancellation Table
        Sheets("CrCn").Range("U36").Value = Sheets("A&C-MYR").Range("S56").Value
        Sheets("CrCn").Range("V36").Value = Sheets("A&C-MYR").Range("Q62").Value
        Sheets("CrCn").Range("W36").Value = Sheets("Input 2").Range("D24").Value
        Sheets("CrCn").Range("X36").Value = Sheets("Input 2").Range("D25").Value
        Sheets("CrCn").Range("Y36").Value = Sheets("Input 2").Range("D26").Value
        Sheets("CrCn").Range("Z36").Value = Sheets("Input 2").Range("D29").Value
        Sheets("CrCn").Range("AA36").Value = Sheets("Input 2").Range("D30").Value
'Update Creation Table
        Sheets("CrCn").Range("AD36").Value = Sheets("Input 2").Range("D15").Value
        Sheets("CrCn").Range("AE36").Value = Sheets("Input 2").Range("D16").Value
        Sheets("CrCn").Range("AF36").Value = Sheets("Input 2").Range("D17").Value
        Sheets("CrCn").Range("AG36").Value = Sheets("Input 2").Range("D20").Value
        Sheets("CrCn").Range("AH36").Value = Sheets("Input 2").Range("D21").Value
Case 28
'A-MYR
'Update Cancellation Table
        Sheets("CrCn").Range("C37").Value = Sheets("A&C-MYR").Range("I56").Value
        Sheets("CrCn").Range("D37").Value = Sheets("A&C-MYR").Range("G62").Value
        Sheets("CrCn").Range("E37").Value = Sheets("Input 2").Range("C24").Value
        Sheets("CrCn").Range("F37").Value = Sheets("Input 2").Range("C25").Value
        Sheets("CrCn").Range("G37").Value = Sheets("Input 2").Range("C26").Value
        Sheets("CrCn").Range("H37").Value = Sheets("Input 2").Range("C29").Value
        Sheets("CrCn").Range("I37").Value = Sheets("Input 2").Range("C30").Value
'Update Creation Table
        Sheets("CrCn").Range("L37").Value = Sheets("Input 2").Range("C15").Value
        Sheets("CrCn").Range("M37").Value = Sheets("Input 2").Range("C16").Value
        Sheets("CrCn").Range("N37").Value = Sheets("Input 2").Range("C17").Value
        Sheets("CrCn").Range("O37").Value = Sheets("Input 2").Range("C20").Value
        Sheets("CrCn").Range("P37").Value = Sheets("Input 2").Range("C21").Value
'C-MYR
'Update Cancellation Table
        Sheets("CrCn").Range("U37").Value = Sheets("A&C-MYR").Range("S56").Value
        Sheets("CrCn").Range("V37").Value = Sheets("A&C-MYR").Range("Q62").Value
        Sheets("CrCn").Range("W37").Value = Sheets("Input 2").Range("D24").Value
        Sheets("CrCn").Range("X37").Value = Sheets("Input 2").Range("D25").Value
        Sheets("CrCn").Range("Y37").Value = Sheets("Input 2").Range("D26").Value
        Sheets("CrCn").Range("Z37").Value = Sheets("Input 2").Range("D29").Value
        Sheets("CrCn").Range("AA37").Value = Sheets("Input 2").Range("D30").Value
'Update Creation Table
        Sheets("CrCn").Range("AD37").Value = Sheets("Input 2").Range("D15").Value
        Sheets("CrCn").Range("AE37").Value = Sheets("Input 2").Range("D16").Value
        Sheets("CrCn").Range("AF37").Value = Sheets("Input 2").Range("D17").Value
        Sheets("CrCn").Range("AG37").Value = Sheets("Input 2").Range("D20").Value
        Sheets("CrCn").Range("AH37").Value = Sheets("Input 2").Range("D21").Value
Case 29
'A-MYR
'Update Cancellation Table
        Sheets("CrCn").Range("C38").Value = Sheets("A&C-MYR").Range("I56").Value
        Sheets("CrCn").Range("D38").Value = Sheets("A&C-MYR").Range("G62").Value
        Sheets("CrCn").Range("E38").Value = Sheets("Input 2").Range("C24").Value
        Sheets("CrCn").Range("F38").Value = Sheets("Input 2").Range("C25").Value
        Sheets("CrCn").Range("G38").Value = Sheets("Input 2").Range("C26").Value
        Sheets("CrCn").Range("H38").Value = Sheets("Input 2").Range("C29").Value
        Sheets("CrCn").Range("I38").Value = Sheets("Input 2").Range("C30").Value
'Update Creation Table
        Sheets("CrCn").Range("L38").Value = Sheets("Input 2").Range("C15").Value
        Sheets("CrCn").Range("M38").Value = Sheets("Input 2").Range("C16").Value
        Sheets("CrCn").Range("N38").Value = Sheets("Input 2").Range("C17").Value
        Sheets("CrCn").Range("O38").Value = Sheets("Input 2").Range("C20").Value
        Sheets("CrCn").Range("P38").Value = Sheets("Input 2").Range("C21").Value
'C-MYR
'Update Cancellation Table
        Sheets("CrCn").Range("U38").Value = Sheets("A&C-MYR").Range("S56").Value
        Sheets("CrCn").Range("V38").Value = Sheets("A&C-MYR").Range("Q62").Value
        Sheets("CrCn").Range("W38").Value = Sheets("Input 2").Range("D24").Value
        Sheets("CrCn").Range("X38").Value = Sheets("Input 2").Range("D25").Value
        Sheets("CrCn").Range("Y38").Value = Sheets("Input 2").Range("D26").Value
        Sheets("CrCn").Range("Z38").Value = Sheets("Input 2").Range("D29").Value
        Sheets("CrCn").Range("AA38").Value = Sheets("Input 2").Range("D30").Value
'Update Creation Table
        Sheets("CrCn").Range("AD38").Value = Sheets("Input 2").Range("D15").Value
        Sheets("CrCn").Range("AE38").Value = Sheets("Input 2").Range("D16").Value
        Sheets("CrCn").Range("AF38").Value = Sheets("Input 2").Range("D17").Value
        Sheets("CrCn").Range("AG38").Value = Sheets("Input 2").Range("D20").Value
        Sheets("CrCn").Range("AH38").Value = Sheets("Input 2").Range("D21").Value
Case 30
'A-MYR
'Update Cancellation Table
        Sheets("CrCn").Range("C39").Value = Sheets("A&C-MYR").Range("I56").Value
        Sheets("CrCn").Range("D39").Value = Sheets("A&C-MYR").Range("G62").Value
        Sheets("CrCn").Range("E39").Value = Sheets("Input 2").Range("C24").Value
        Sheets("CrCn").Range("F39").Value = Sheets("Input 2").Range("C25").Value
        Sheets("CrCn").Range("G39").Value = Sheets("Input 2").Range("C26").Value
        Sheets("CrCn").Range("H39").Value = Sheets("Input 2").Range("C29").Value
        Sheets("CrCn").Range("I39").Value = Sheets("Input 2").Range("C30").Value
'Update Creation Table
        Sheets("CrCn").Range("L39").Value = Sheets("Input 2").Range("C15").Value
        Sheets("CrCn").Range("M39").Value = Sheets("Input 2").Range("C16").Value
        Sheets("CrCn").Range("N39").Value = Sheets("Input 2").Range("C17").Value
        Sheets("CrCn").Range("O39").Value = Sheets("Input 2").Range("C20").Value
        Sheets("CrCn").Range("P39").Value = Sheets("Input 2").Range("C21").Value
'C-MYR
'Update Cancellation Table
        Sheets("CrCn").Range("U39").Value = Sheets("A&C-MYR").Range("S56").Value
        Sheets("CrCn").Range("V39").Value = Sheets("A&C-MYR").Range("Q62").Value
        Sheets("CrCn").Range("W39").Value = Sheets("Input 2").Range("D24").Value
        Sheets("CrCn").Range("X39").Value = Sheets("Input 2").Range("D25").Value
        Sheets("CrCn").Range("Y39").Value = Sheets("Input 2").Range("D26").Value
        Sheets("CrCn").Range("Z39").Value = Sheets("Input 2").Range("D29").Value
        Sheets("CrCn").Range("AA39").Value = Sheets("Input 2").Range("D30").Value
'Update Creation Table
        Sheets("CrCn").Range("AD39").Value = Sheets("Input 2").Range("D15").Value
        Sheets("CrCn").Range("AE39").Value = Sheets("Input 2").Range("D16").Value
        Sheets("CrCn").Range("AF39").Value = Sheets("Input 2").Range("D17").Value
        Sheets("CrCn").Range("AG39").Value = Sheets("Input 2").Range("D20").Value
        Sheets("CrCn").Range("AH39").Value = Sheets("Input 2").Range("D21").Value
Case 31
'A-MYR
'Update Cancellation Table
        Sheets("CrCn").Range("C40").Value = Sheets("A&C-MYR").Range("I56").Value
        Sheets("CrCn").Range("D40").Value = Sheets("A&C-MYR").Range("G62").Value
        Sheets("CrCn").Range("E40").Value = Sheets("Input 2").Range("C24").Value
        Sheets("CrCn").Range("F40").Value = Sheets("Input 2").Range("C25").Value
        Sheets("CrCn").Range("G40").Value = Sheets("Input 2").Range("C26").Value
        Sheets("CrCn").Range("H40").Value = Sheets("Input 2").Range("C29").Value
        Sheets("CrCn").Range("I40").Value = Sheets("Input 2").Range("C30").Value
'Update Creation Table
        Sheets("CrCn").Range("L40").Value = Sheets("Input 2").Range("C15").Value
        Sheets("CrCn").Range("M40").Value = Sheets("Input 2").Range("C16").Value
        Sheets("CrCn").Range("N40").Value = Sheets("Input 2").Range("C17").Value
        Sheets("CrCn").Range("O40").Value = Sheets("Input 2").Range("C20").Value
        Sheets("CrCn").Range("P40").Value = Sheets("Input 2").Range("C21").Value
'C-MYR
'Update Cancellation Table
        Sheets("CrCn").Range("U40").Value = Sheets("A&C-MYR").Range("S56").Value
        Sheets("CrCn").Range("V40").Value = Sheets("A&C-MYR").Range("Q62").Value
        Sheets("CrCn").Range("W40").Value = Sheets("Input 2").Range("D24").Value
        Sheets("CrCn").Range("X40").Value = Sheets("Input 2").Range("D25").Value
        Sheets("CrCn").Range("Y40").Value = Sheets("Input 2").Range("D26").Value
        Sheets("CrCn").Range("Z40").Value = Sheets("Input 2").Range("D29").Value
        Sheets("CrCn").Range("AA40").Value = Sheets("Input 2").Range("D30").Value
'Update Creation Table
        Sheets("CrCn").Range("AD40").Value = Sheets("Input 2").Range("D15").Value
        Sheets("CrCn").Range("AE40").Value = Sheets("Input 2").Range("D16").Value
        Sheets("CrCn").Range("AF40").Value = Sheets("Input 2").Range("D17").Value
        Sheets("CrCn").Range("AG40").Value = Sheets("Input 2").Range("D20").Value
        Sheets("CrCn").Range("AH40").Value = Sheets("Input 2").Range("D21").Value
End Select
'
End Sub
 
Last edited by a moderator:

Excel Facts

Enter current date or time
Ctrl+: enters current time. Ctrl+; enters current date. Use Ctrl+: Ctrl+; Enter for current date & time.
Sort by date Sort by votes
Hi Zurina,

You have written code for each line... may be you can use With--End with for the Sheets("CrCn").
and use worksheetfunction.transpose where your have data in same row/column.

Writing a function for the same will be a another option.
 
Upvote 0
Hi and welcome to the Board
Would have been Waaay easier, if you had used code tags to enclose the code....

And the only possible values in Sheet Fs. Range("A8") will be 1 to 31 ??
 
Upvote 0
Hi and welcome.

Try this...

Code: 
[color=darkblue]Sub[/color] Units()
    [color=green]'[/color]
    [color=green]' Units Macro[/color]
    [color=green]' Update Creation & Cancellation Tables[/color]
    [color=green]'[/color]
    [color=darkblue]Dim[/color] i [color=darkblue]As[/color] [color=darkblue]Integer[/color]
    
    i = Sheets("Fs").Range("A8").Value - 1
    
    [color=darkblue]With[/color] Sheets("CrCn")
    
        [color=green]'A-MYR[/color]
        [color=green]'Update Cancellation Table[/color]
        .Range("C10").Offset(i).Value = Sheets("A&C-MYR").Range("I56").Value
        .Range("D10").Offset(i).Value = Sheets("A&C-MYR").Range("G62").Value
        .Range("E10").Offset(i).Value = Sheets("Input 2").Range("C24").Value
        .Range("F10").Offset(i).Value = Sheets("Input 2").Range("C25").Value
        .Range("G10").Offset(i).Value = Sheets("Input 2").Range("C26").Value
        .Range("H10").Offset(i).Value = Sheets("Input 2").Range("C29").Value
        .Range("I10").Offset(i).Value = Sheets("Input 2").Range("C30").Value
        [color=green]'Update Creation Table[/color]
        .Range("L10").Offset(i).Value = Sheets("Input 2").Range("C15").Value
        .Range("M10").Offset(i).Value = Sheets("Input 2").Range("C16").Value
        .Range("N10").Offset(i).Value = Sheets("Input 2").Range("C17").Value
        .Range("O10").Offset(i).Value = Sheets("Input 2").Range("C20").Value
        .Range("P10").Offset(i).Value = Sheets("Input 2").Range("C21").Value
        [color=green]'C-MYR[/color]
        [color=green]'Update Cancellation Table[/color]
        .Range("U10").Offset(i).Value = Sheets("A&C-MYR").Range("S56").Value
        .Range("V10").Offset(i).Value = Sheets("A&C-MYR").Range("Q62").Value
        .Range("W10").Offset(i).Value = Sheets("Input 2").Range("D24").Value
        .Range("X10").Offset(i).Value = Sheets("Input 2").Range("D25").Value
        .Range("Y10").Offset(i).Value = Sheets("Input 2").Range("D26").Value
        .Range("Z10").Offset(i).Value = Sheets("Input 2").Range("D29").Value
        .Range("AA10").Offset(i).Value = Sheets("Input 2").Range("D30").Value
        [color=green]'Update Creation Table[/color]
        .Range("AD10").Offset(i).Value = Sheets("Input 2").Range("D15").Value
        .Range("AE10").Offset(i).Value = Sheets("Input 2").Range("D16").Value
        .Range("AF10").Offset(i).Value = Sheets("Input 2").Range("D17").Value
        .Range("AG10").Offset(i).Value = Sheets("Input 2").Range("D20").Value
        .Range("AH10").Offset(i).Value = Sheets("Input 2").Range("D21").Value
        
    [color=darkblue]End[/color] [color=darkblue]With[/color]
    
[color=darkblue]End[/color] [color=darkblue]Sub[/color]
 
Upvote 0
AlphaFrog said:
Hi and welcome.

Try this...

Code: 
[COLOR=darkblue]Sub[/COLOR] Units()
    [COLOR=green]'[/COLOR]
    [COLOR=green]' Units Macro[/COLOR]
    [COLOR=green]' Update Creation & Cancellation Tables[/COLOR]
    [COLOR=green]'[/COLOR]
    [COLOR=darkblue]Dim[/COLOR] i [COLOR=darkblue]As[/COLOR] [COLOR=darkblue]Integer[/COLOR]
    
    i = Sheets("Fs").Range("A8").Value - 1
    
    [COLOR=darkblue]With[/COLOR] Sheets("CrCn")
    
        [COLOR=green]'A-MYR[/COLOR]
        [COLOR=green]'Update Cancellation Table[/COLOR]
        .Range("C10").Offset(i).Value = Sheets("A&C-MYR").Range("I56").Value
        .Range("D10").Offset(i).Value = Sheets("A&C-MYR").Range("G62").Value
        .Range("E10").Offset(i).Value = Sheets("Input 2").Range("C24").Value
        .Range("F10").Offset(i).Value = Sheets("Input 2").Range("C25").Value
        .Range("G10").Offset(i).Value = Sheets("Input 2").Range("C26").Value
    [COLOR=darkblue]End[/COLOR] [COLOR=darkblue]With[/COLOR]
    
[COLOR=darkblue]End[/COLOR] [COLOR=darkblue]Sub[/COLOR]
Click to expand...

Hi Alphafrog,

But i think ".Range("C10").Offset(i).Value" will change the value of C11 but i guess Zurina wants to change value of C10.

Opps... you'r right.. i didnt see that -1 above.... apologies...
 
Upvote 0
Ok, my 2 bobs worth
Code: 
Sub Units()
Dim tmp As Integer
' Units Macro
' Update Creation & Cancellation Tables
n = Sheets("Fs").Range("A8").Value
Sheets("CrCn").Range("C" & n + 9).Value = Sheets("A&C-MYR").Range("I56").Value
Sheets("CrCn").Range("D" & n + 9).Value = Sheets("A&C-MYR").Range("G62").Value
Sheets("CrCn").Range("E" & n + 9).Value = Sheets("Input 2").Range("C24").Value
Sheets("CrCn").Range("F" & n + 9).Value = Sheets("Input 2").Range("C25").Value
Sheets("CrCn").Range("G" & n + 9).Value = Sheets("Input 2").Range("C26").Value
Sheets("CrCn").Range("H" & n + 9).Value = Sheets("Input 2").Range("C29").Value
Sheets("CrCn").Range("I" & n + 9).Value = Sheets("Input 2").Range("C30").Value
'Update Creation Table
Sheets("CrCn").Range("L" & n + 9).Value = Sheets("Input 2").Range("C15").Value
Sheets("CrCn").Range("M" & n + 9).Value = Sheets("Input 2").Range("C16").Value
Sheets("CrCn").Range("N" & n + 9).Value = Sheets("Input 2").Range("C17").Value
Sheets("CrCn").Range("O" & n + 9).Value = Sheets("Input 2").Range("C20").Value
Sheets("CrCn").Range("P" & n + 9).Value = Sheets("Input 2").Range("C21").Value
'C-MYR
'Update Cancellation Table
Sheets("CrCn").Range("U" & n + 9).Value = Sheets("A&C-MYR").Range("S56").Value
Sheets("CrCn").Range("V" & n + 9).Value = Sheets("A&C-MYR").Range("Q62").Value
Sheets("CrCn").Range("W" & n + 9).Value = Sheets("Input 2").Range("D24").Value
Sheets("CrCn").Range("X" & n + 9).Value = Sheets("Input 2").Range("D25").Value
Sheets("CrCn").Range("Y" & n + 9).Value = Sheets("Input 2").Range("D26").Value
Sheets("CrCn").Range("Z" & n + 9).Value = Sheets("Input 2").Range("D29").Value
Sheets("CrCn").Range("AA" & n + 9).Value = Sheets("Input 2").Range("D30").Value
'Update Creation Table
Sheets("CrCn").Range("AD" & n + 9).Value = Sheets("Input 2").Range("D15").Value
Sheets("CrCn").Range("AE" & n + 9).Value = Sheets("Input 2").Range("D16").Value
Sheets("CrCn").Range("AF" & n + 9).Value = Sheets("Input 2").Range("D17").Value
Sheets("CrCn").Range("AG" & n + 9).Value = Sheets("Input 2").Range("D20").Value
Sheets("CrCn").Range("AH" & n + 9).Value = Sheets("Input 2").Range("D21").Value
End Sub
 
Upvote 0
thanks michael..I havent try your code..because i need to go back home but i think that will work.
THanks a million.
 
Upvote 0
Yeah, I had the same prob.....then I actually tried to run it...:oops:
 
Upvote 0
You must log in or register to reply here.

Similar threads

N
  • Question
My code is suddenly really slow
Replies
1
Views
158
RobP
R
Agnarr
  • Question
VBA problem with creating new sheets
Replies
0
Views
377
Agnarr
Agnarr
hendrikbez
  • Question
Cannot get to edit on my user form with 1 to 5 members on it
Replies
1
Views
86
Anthony47
A
H
  • Solved
Macro to display message end of Code where Col D contains blanks
Replies
7
Views
348
howard
H
N
  • Question
Count - specific consecutive order
Replies
6
Views
543
Peter_SSs
Peter_SSs

Forum statistics

Threads
1,215,471
Messages
6,124,996
Members
449,201
Latest member
Lunzwe73

Share this page

We've detected that you are using an adblocker.

We have a great community of people providing Excel help here, but the hosting costs are enormous. You can help keep this site running by allowing ads on MrExcel.com.
Allow Ads at MrExcel

Which adblocker are you using?

Disable AdBlock

Follow these easy steps to disable AdBlock

1)Click on the icon in the browser’s toolbar.
2)Click on the icon in the browser’s toolbar.
2)Click on the "Pause on this site" option.
Go back

Disable AdBlock Plus

Follow these easy steps to disable AdBlock Plus

1)Click on the icon in the browser’s toolbar.
2)Click on the toggle to disable it for "mrexcel.com".
Go back

Disable uBlock Origin

Follow these easy steps to disable uBlock Origin

1)Click on the icon in the browser’s toolbar.
2)Click on the "Power" button.
3)Click on the "Refresh" button.
Go back

Disable uBlock

Follow these easy steps to disable uBlock

1)Click on the icon in the browser’s toolbar.
2)Click on the "Power" button.
3)Click on the "Refresh" button.
Go back
Back
Top