Runtime error 91 in a macro :ActiveSheet.Next.Select

R

romitahc

New Member
Joined
Jun 3, 2010
Messages
2
I have recorded a macro in excel and in between of the macro its giving me a Runtime error 91:Object variable or with block variable not set. Is it possible for you guys to have a look at my macro since I have not done coding ever.

My code looks like this

Sub ACIP()
'
' ACIP Macro
'

'
ActiveCell.FormulaR1C1 = "Operating Group"
Range("B1").Select
ActiveCell.FormulaR1C1 = "Division"
Range("A1:B1").Select
Selection.Cut
Range("A2").Select
ActiveSheet.Paste
Range("C1:H1").Select
With Selection
.HorizontalAlignment = xlCenter
.VerticalAlignment = xlBottom
.WrapText = False
.Orientation = 0
.AddIndent = False
.IndentLevel = 0
.ShrinkToFit = False
.ReadingOrder = xlContext
.MergeCells = False
End With
Selection.Merge
ActiveCell.FormulaR1C1 = "Fiscal 2011 ACIP"
Range("C2").Select
ActiveCell.FormulaR1C1 = "(A)" & Chr(10) & "# of Eligible Associates in FY10"
With ActiveCell.Characters(Start:=1, Length:=36).Font
.Name = "Calibri"
.FontStyle = "Regular"
.Size = 11
.Strikethrough = False
.Superscript = False
.Subscript = False
.OutlineFont = False
.Shadow = False
.Underline = xlUnderlineStyleNone
.ThemeColor = xlThemeColorLight1
.TintAndShade = 0
.ThemeFont = xlThemeFontMinor
End With
Range("C2").Select
Selection.Copy
Range("D2").Select
ActiveSheet.Paste
Range("E2").Select
ActiveSheet.Paste
Range("F2").Select
ActiveSheet.Paste
Range("G2").Select
ActiveSheet.Paste
Range("H2").Select
ActiveSheet.Paste
Range("C2").Select
Application.CutCopyMode = False
Range("D2").Select
ActiveCell.FormulaR1C1 = "(B)" & Chr(10) & "# of Eligible Associates in FY11"
With ActiveCell.Characters(Start:=1, Length:=36).Font
.Name = "Calibri"
.FontStyle = "Regular"
.Size = 11
.Strikethrough = False
.Superscript = False
.Subscript = False
.OutlineFont = False
.Shadow = False
.Underline = xlUnderlineStyleNone
.ThemeColor = xlThemeColorLight1
.TintAndShade = 0
.ThemeFont = xlThemeFontMinor
End With
Range("E2").Select
ActiveCell.FormulaR1C1 = "(A)" & Chr(10) & "# of Eligible Associates in FY10"
With ActiveCell.Characters(Start:=1, Length:=36).Font
.Name = "Calibri"
.FontStyle = "Regular"
.Size = 11
.Strikethrough = False
.Superscript = False
.Subscript = False
.OutlineFont = False
.Shadow = False
.Underline = xlUnderlineStyleNone
.ThemeColor = xlThemeColorLight1
.TintAndShade = 0
.ThemeFont = xlThemeFontMinor
End With
Range("E2").Select
ActiveCell.FormulaR1C1 = "(C)" & Chr(10) & "Variance"
With ActiveCell.Characters(Start:=1, Length:=12).Font
.Name = "Calibri"
.FontStyle = "Regular"
.Size = 11
.Strikethrough = False
.Superscript = False
.Subscript = False
.OutlineFont = False
.Shadow = False
.Underline = xlUnderlineStyleNone
.ThemeColor = xlThemeColorLight1
.TintAndShade = 0
.ThemeFont = xlThemeFontMinor
End With
Range("F2").Select
ActiveCell.FormulaR1C1 = "(D)" & Chr(10) & " FY10 Target Bonus Pool"
With ActiveCell.Characters(Start:=1, Length:=27).Font
.Name = "Calibri"
.FontStyle = "Regular"
.Size = 11
.Strikethrough = False
.Superscript = False
.Subscript = False
.OutlineFont = False
.Shadow = False
.Underline = xlUnderlineStyleNone
.ThemeColor = xlThemeColorLight1
.TintAndShade = 0
.ThemeFont = xlThemeFontMinor
End With
Range("F2").Select
Selection.Copy
Range("G2").Select
ActiveSheet.Paste
Range("E2").Select
Application.CutCopyMode = False
Selection.Copy
Range("H2").Select
ActiveSheet.Paste
Range("G2").Select
Application.CutCopyMode = False
ActiveCell.FormulaR1C1 = "(E)" & Chr(10) & " FY11 Target Bonus Pool"
With ActiveCell.Characters(Start:=1, Length:=27).Font
.Name = "Calibri"
.FontStyle = "Regular"
.Size = 11
.Strikethrough = False
.Superscript = False
.Subscript = False
.OutlineFont = False
.Shadow = False
.Underline = xlUnderlineStyleNone
.ThemeColor = xlThemeColorLight1
.TintAndShade = 0
.ThemeFont = xlThemeFontMinor
End With
Range("H2").Select
ActiveCell.FormulaR1C1 = "(F)" & Chr(10) & "Variance"
With ActiveCell.Characters(Start:=1, Length:=12).Font
.Name = "Calibri"
.FontStyle = "Regular"
.Size = 11
.Strikethrough = False
.Superscript = False
.Subscript = False
.OutlineFont = False
.Shadow = False
.Underline = xlUnderlineStyleNone
.ThemeColor = xlThemeColorLight1
.TintAndShade = 0
.ThemeFont = xlThemeFontMinor
End With
Range("C2:H2").Select
With Selection
.HorizontalAlignment = xlCenter
.VerticalAlignment = xlTop
.WrapText = True
.Orientation = 0
.AddIndent = False
.IndentLevel = 0
.ShrinkToFit = False
.ReadingOrder = xlContext
.MergeCells = False
End With
Range("C1:H1").Select
Selection.Borders(xlDiagonalDown).LineStyle = xlNone
Selection.Borders(xlDiagonalUp).LineStyle = xlNone
Selection.Borders(xlEdgeLeft).LineStyle = xlNone
Selection.Borders(xlEdgeTop).LineStyle = xlNone
With Selection.Borders(xlEdgeBottom)
.LineStyle = xlContinuous
.ColorIndex = xlAutomatic
.TintAndShade = 0
.Weight = xlThin
End With
Selection.Borders(xlEdgeRight).LineStyle = xlNone
Selection.Borders(xlInsideVertical).LineStyle = xlNone
Selection.Borders(xlInsideHorizontal).LineStyle = xlNone
Range("A3").Select
ActiveCell.FormulaR1C1 = "Depository Instituion Group"
Range("B3").Select
ActiveCell.FormulaR1C1 = "Community Bank Solutions"
Range("B4").Select
ActiveCell.FormulaR1C1 = "Credit Union Solutions"
Range("B5").Select
ActiveCell.FormulaR1C1 = "DIS Administration"
Range("B6").Select
ActiveCell.FormulaR1C1 = "Items Processing and Payment Solutions"
Range("B7").Select
ActiveCell.FormulaR1C1 = "Large Bank Solutions"
Range("B8").Select
ActiveCell.FormulaR1C1 = "Sales and Account Management"
Range("A3").Select
ActiveCell.FormulaR1C1 = "Depository Instituion Services"
Range("A3").Select
Selection.Copy
Range("B9").Select
ActiveSheet.Paste
Application.CutCopyMode = False
ActiveCell.FormulaR1C1 = "Depository Instituion Services Total"
Range("A3").Select
Selection.Copy
Range("A4").Select
Application.CutCopyMode = False
Range("A11").Select
ActiveCell.FormulaR1C1 = "Digital Payment Solutions"
Range("B11").Select
ActiveCell.FormulaR1C1 = "Biller Solutions"
Range("B12").Select
ActiveCell.FormulaR1C1 = "Card Services"
Range("B13").Select
ActiveCell.FormulaR1C1 = "DPS Administration"
Range("B14").Select
ActiveCell.FormulaR1C1 = "Electronic Banking Services"
Range("B15").Select
ActiveCell.FormulaR1C1 = "Lending Solutions"
Range("B16").Select
ActiveCell.FormulaR1C1 = "Output Solutions"
Range("B17").Select
ActiveCell.FormulaR1C1 = "Risk Management"
Range("B17").Select
ActiveCell.FormulaR1C1 = "Risk Management Solutions"
Range("B18").Select
ActiveCell.FormulaR1C1 = "Business Services"
Range("B16").Select
Selection.End(xlUp).Select
Range("A11").Select
Selection.Copy
Range("B11").Select
Selection.End(xlDown).Select
Range("B19").Select
ActiveSheet.Paste
Application.CutCopyMode = False
ActiveCell.FormulaR1C1 = "Digital Payment Solutions Total"
Range("A21").Select
ActiveCell.FormulaR1C1 = "Financial Institution Group"
Range("B21").Select
Selection.End(xlUp).Select
Selection.End(xlUp).Select
Range("B13").Select
Selection.Copy
Range("B21").Select
ActiveSheet.Paste
Application.CutCopyMode = False
ActiveCell.FormulaR1C1 = "FIG Administration"
Range("B22").Select
ActiveCell.FormulaR1C1 = "Investment Services"
Range("B23").Select
ActiveCell.FormulaR1C1 = "IP Australia"
Range("B15").Select
Selection.Copy
Range("B24").Select
ActiveSheet.Paste
Range("B25").Select
Application.CutCopyMode = False
ActiveCell.FormulaR1C1 = "Revenue Enhancement"
Range("B24").Select
Selection.End(xlUp).Select
Range("B17").Select
Selection.Copy
Range("B26").Select
ActiveSheet.Paste
Range("A21").Select
Application.CutCopyMode = False
Selection.Copy
Range("B27").Select
ActiveSheet.Paste
Range("B27").Select
Application.CutCopyMode = False
ActiveCell.FormulaR1C1 = "Financial Institution Group Total"
Range("A29").Select
ActiveCell.FormulaR1C1 = "Corporate"
Range("B29").Select
ActiveCell.FormulaR1C1 = "Audit"
Range("B30").Select
ActiveCell.FormulaR1C1 = "Facilities"
Range("B31").Select
ActiveCell.FormulaR1C1 = "HR"
Range("B32").Select
ActiveCell.FormulaR1C1 = "Legal M&A"
Range("B33").Select
ActiveCell.FormulaR1C1 = "Marketing"
Range("B34").Select
ActiveCell.FormulaR1C1 = "Risk"
Range("B35").Select
ActiveCell.FormulaR1C1 = "Security"
Range("B36").Select
ActiveCell.FormulaR1C1 = "Strategic Sourcing"
Range("A37").Select
Selection.End(xlUp).Select
Selection.Copy
Range("B37").Select
ActiveSheet.Paste
Range("A39").Select
Application.CutCopyMode = False
ActiveCell.FormulaR1C1 = "Fiserv Enterprise Technology"
Range("A41").Select
ActiveCell.FormulaR1C1 = "Fiserv Global Services"
Range("A43").Select
ActiveCell.FormulaR1C1 = "Global Sales Organization"
Range("A45").Select
ActiveCell.FormulaR1C1 = "Operating Committee"
Range("A47").Select
ActiveCell.FormulaR1C1 = "CEO"
Range("A49").Select
ActiveCell.FormulaR1C1 = "Grand Total"
Range("B35").Select
Selection.End(xlUp).Select
Selection.End(xlUp).Select
Selection.End(xlUp).Select
Selection.End(xlUp).Select
Selection.End(xlUp).Select
Selection.End(xlUp).Select
Range("B7").Select
Selection.End(xlUp).Select
Selection.End(xlUp).Select
Range("C3").Select
Selection.FormulaArray = _
"=COUNT(IF(Master!R2C7:R180000C7=""Commumity Bank Solutions"",IF(Master!R2C15:R180000C15<>"""",Master!R2C15:R180000C15)))"
Range("C3:C9").Select
Selection.FillDown
Range("B4").Select
ActiveCell.FormulaR1C1 = "Credit Union Solutions"
Range("C4").Select
Selection.FormulaArray = _
"=COUNT(IF(Master!R2C7:R180000C7=""Credit Union Solutions"",IF(Master!R2C15:R180000C15<>"""",Master!R2C15:R180000C15)))"
Range("B5").Select
ActiveCell.FormulaR1C1 = "DIS Administration"
Range("C5").Select
Selection.FormulaArray = _
"=COUNT(IF(Master!R2C7:R180000C7=""DIS Administration"",IF(Master!R2C15:R180000C15<>"""",Master!R2C15:R180000C15)))"
Range("C6").Select
Selection.FormulaArray = _
"=COUNT(IF(Master!R2C7:R180000C7=""IPPS"",IF(Master!R2C15:R180000C15<>"""",Master!R2C15:R180000C15)))"
Range("B7").Select
ActiveCell.FormulaR1C1 = "Large Bank Solutions"
Range("C7").Select
Selection.FormulaArray = _
"=COUNT(IF(Master!R2C7:R180000C7=""Large Bank Solutions"",IF(Master!R2C15:R180000C15<>"""",Master!R2C15:R180000C15)))"
Range("C8").Select
Selection.FormulaArray = _
"=COUNT(IF(Master!R2C7:R180000C7=""SAE"",IF(Master!R2C15:R180000C15<>"""",Master!R2C15:R180000C15)))"
Range("C9").Select
ActiveCell.FormulaR1C1 = "=SUM(R[-6]C:R[-1]C)"
Range("C7").Select
Selection.End(xlUp).Select
Range("C3:C8").Select
Selection.Copy
Range("D3").Select
ActiveSheet.Paste
Range("D3").Select
Application.CutCopyMode = False
Selection.FormulaArray = _
"=COUNT(IF(Master!R2C7:R180000C7=""Commumity Bank Solutions"",IF(Master!R2C16:R180000C16<>"""",Master!R2C16:R180000C16)))"
Range("D4").Select
Selection.FormulaArray = _
"=COUNT(IF(Master!R2C7:R180000C7=""Credit Union Solutions"",IF(Master!R2C16:R180000C16<>"""",Master!R2C16:R180000C16)))"
Range("D5").Select
Selection.FormulaArray = _
"=COUNT(IF(Master!R2C7:R180000C7=""DIS Administration"",IF(Master!R2C16:R180000C16<>"""",Master!R2C16:R180000C16)))"
Range("D6").Select
Selection.FormulaArray = _
"=COUNT(IF(Master!R2C7:R180000C7=""IPPS"",IF(Master!R2C16:R180000C16<>"""",Master!R2C16:R180000C16)))"
Range("D7").Select
Selection.FormulaArray = _
"=COUNT(IF(Master!R2C7:R180000C7=""Large Bank Solutions"",IF(Master!R2C16:R180000C16<>"""",Master!R2C16:R180000C16)))"
Range("D8").Select
Selection.FormulaArray = _
"=COUNT(IF(Master!R2C7:R180000C7=""SAE"",IF(Master!R2C16:R180000C16<>"""",Master!R2C16:R180000C16)))"
Range("C9").Select
Selection.Copy
Range("D9").Select
ActiveSheet.Paste
Range("E9").Select
Application.CutCopyMode = False
Selection.End(xlUp).Select
Range("E3").Select
ActiveCell.FormulaR1C1 = "=RC[-2]-RC[-1]"
Range("D3").Select
Selection.End(xlDown).Select
Range("E8").Select
Range(Selection, Selection.End(xlUp)).Select
Range("E9").Select
Range(Selection, Selection.End(xlUp)).Select
Selection.FillDown
Range("F9").Select
Selection.End(xlUp).Select
Range("C3:D9").Select
Selection.Copy
Range("F3").Select
ActiveSheet.Paste
Range("F3").Select
Application.CutCopyMode = False
ActiveSheet.Next.Select
ActiveSheet.Previous.Select
ActiveSheet.Previous.Select
Range("R1").Select
ActiveSheet.Next.Select
Selection.FormulaArray = _
"=SUM(IF(Master!R2C7:R180000C7=""Commumity Bank Solutions"",IF(Master!R2C17:R180000C17<>"""",Master!R2C17:R180000C17)))"
Range("F4").Select
Selection.FormulaArray = _
"=SUM(IF(Master!R2C7:R180000C7=""Credit Union Solutions"",IF(Master!R2C17:R180000C17<>"""",Master!R2C17:R180000C17)))"
Range("F5").Select
Selection.FormulaArray = _
"=SUM(IF(Master!R2C7:R180000C7=""DIS Administration"",IF(Master!R2C17:R180000C17<>"""",Master!R2C17:R180000C17)))"
Range("F6").Select
Selection.FormulaArray = _
"=SUM(IF(Master!R2C7:R180000C7=""IPPS"",IF(Master!R2C17:R180000C17<>"""",Master!R2C17:R180000C17)))"
Range("F7").Select
Selection.FormulaArray = _
"=SUM(IF(Master!R2C7:R180000C7=""Large Bank Solutions"",IF(Master!R2C17:R180000C17<>"""",Master!R2C17:R180000C17)))"
Range("F8").Select
Selection.FormulaArray = _
"=SUM(IF(Master!R2C7:R180000C7=""SAE"",IF(Master!R2C17:R180000C17<>"""",Master!R2C17:R180000C17)))"
Range("G9").Select
Selection.End(xlUp).Select
Range("F3").Select
Range(Selection, Selection.End(xlDown)).Select
Range("F3:F9").Select
Selection.Copy
Range("G3").Select
ActiveSheet.Paste
Application.CutCopyMode = False
Range("G3").Select
Selection.FormulaArray = _
"=SUM(IF(Master!R2C7:R180000C7=""Commumity Bank Solutions"",IF(Master!R2C18:R180000C18<>"""",Master!R2C18:R180000C18)))"
Range("G4").Select
Selection.FormulaArray = _
"=SUM(IF(Master!R2C7:R180000C7=""Credit Union Solutions"",IF(Master!R2C18:R180000C18<>"""",Master!R2C18:R180000C18)))"
Range("G5").Select
Selection.FormulaArray = _
"=SUM(IF(Master!R2C7:R180000C7=""DIS Administration"",IF(Master!R2C18:R180000C18<>"""",Master!R2C18:R180000C18)))"
Range("G6").Select
Selection.FormulaArray = _
"=SUM(IF(Master!R2C7:R180000C7=""IPPS"",IF(Master!R2C18:R180000C18<>"""",Master!R2C18:R180000C18)))"
Range("G7").Select
Selection.FormulaArray = _
"=SUM(IF(Master!R2C7:R180000C7=""Large Bank Solutions"",IF(Master!R2C18:R180000C18<>"""",Master!R2C18:R180000C18)))"
Range("G8").Select
Selection.FormulaArray = _
"=SUM(IF(Master!R2C7:R180000C7=""SAE"",IF(Master!R2C18:R180000C18<>"""",Master!R2C18:R180000C18)))"
Range("E3").Select
Range(Selection, Selection.End(xlDown)).Select
Selection.Copy
Range("H3").Select
ActiveSheet.Paste
Range("H4").Select
Application.CutCopyMode = False
Range("H3").Select
Range(Selection, Selection.End(xlDown)).Select
Selection.NumberFormat = "#,##0_);[Red](#,##0)"
Selection.Copy
Range("E3:E9").Select
Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
Application.CutCopyMode = False
Range("F3:G9").Select
Selection.NumberFormat = "$#,##0"
Range("C3").Select
Range(Selection, Selection.End(xlDown)).Select
Range("C3:H9").Select
Selection.Copy
Range("C10").Select
Application.CutCopyMode = False
Range("C3:C9").Select
Selection.Copy
Range("C11").Select
ActiveSheet.Paste
Range("C12").Select
Application.CutCopyMode = False
Range("B11").Select
ActiveCell.FormulaR1C1 = "Biller Solutions"
Range("C11").Select
Selection.FormulaArray = _
"=COUNT(IF(Master!R2C7:R180000C7=""Biller Solutions"",IF(Master!R2C15:R180000C15<>"""",Master!R2C15:R180000C15)))"
Range("B12").Select
ActiveCell.FormulaR1C1 = "Card Services"
Range("C12").Select
Selection.FormulaArray = _
"=COUNT(IF(Master!R2C7:R180000C7=""Card Services"",IF(Master!R2C15:R180000C15<>"""",Master!R2C15:R180000C15)))"
Range("B13").Select
ActiveCell.FormulaR1C1 = "DPS Administration"
Range("C13").Select
Selection.FormulaArray = _
"=COUNT(IF(Master!R2C7:R180000C7=""DPS Administration"",IF(Master!R2C15:R180000C15<>"""",Master!R2C15:R180000C15)))"
Range("B14").Select
ActiveCell.FormulaR1C1 = "Electronic Banking Services"
Range("C14").Select
Selection.FormulaArray = _
"=COUNT(IF(Master!R2C7:R180000C7=""Electronic Banking Services"",IF(Master!R2C15:R180000C15<>"""",Master!R2C15:R180000C15)))"
Range("B15").Select
ActiveCell.FormulaR1C1 = "Lending Solutions"
Range("C15").Select
Selection.FormulaArray = _
"=COUNT(IF(Master!R2C7:R180000C7=""Lending Solutions"",IF(Master!R2C15:R180000C15<>"""",Master!R2C15:R180000C15)))"
Range("C15").Select
Selection.FormulaArray = _
"=COUNT(IF(AND(Master!R2C7:R180000C7=""Lending Solutions"",Master!R2C6:R180000C6=""DPS""),IF(Master!R2C15:R180000C15<>"""",Master!R2C15:R180000C15)))"
Selection.FormulaArray = _
"=COUNT(IF(Master!R2C7:R180000C7=""Lending Solutions"",IF(Master!R2C6:R180000C6=""DPS"",IF(Master!R2C15:R180000C15<>"""",Master!R2C15:R180000C15))))"
Range("B16").Select
ActiveCell.FormulaR1C1 = "Output Solutions"
Range("C16").Select
Selection.FormulaArray = _
"=COUNT(IF(Master!R2C7:R180000C7=""Output Solutions"",IF(Master!R2C15:R180000C15<>"""",Master!R2C15:R180000C15)))"
Range("C15").Select
Selection.Copy
Range("C17").Select
ActiveSheet.Paste
Range("B17").Select
Application.CutCopyMode = False
ActiveCell.FormulaR1C1 = "Risk Management Solutions"
Range("C17").Select
Selection.FormulaArray = _
"=COUNT(IF(Master!R2C7:R180000C7=""Risk Management Solutions"",IF(Master!R2C6:R180000C6=""DPS"",IF(Master!R2C15:R180000C15<>"""",Master!R2C15:R180000C15))))"
Range("C16").Select
Selection.Copy
Range("C18").Select
ActiveSheet.Paste
Range("B18").Select
Application.CutCopyMode = False
ActiveCell.FormulaR1C1 = "Business Services"
Range("C18").Select
Selection.FormulaArray = _
"=COUNT(IF(Master!R2C7:R180000C7=""Business Services"",IF(Master!R2C15:R180000C15<>"""",Master!R2C15:R180000C15)))"
Range("C19").Select
ActiveCell.FormulaR1C1 = "=SUM(R[-8]C:R[-1]C)"
Range("C20").Select
Selection.End(xlUp).Select
Selection.End(xlUp).Select
Range(Selection, Selection.End(xlDown)).Select
Selection.Copy
Range("D11").Select
ActiveSheet.Paste
Range("D12").Select
Application.CutCopyMode = False
Range("D11").Select
Selection.FormulaArray = _
"=COUNT(IF(Master!R2C7:R180000C7=""Biller Solutions"",IF(Master!R2C16:R180000C16<>"""",Master!R2C16:R180000C16)))"
Range("D12").Select
Selection.FormulaArray = _
"=COUNT(IF(Master!R2C7:R180000C7=""Card Services"",IF(Master!R2C16:R180000C16<>"""",Master!R2C16:R180000C16)))"
Range("D13").Select
Selection.FormulaArray = _
"=COUNT(IF(Master!R2C7:R180000C7=""DPS Administration"",IF(Master!R2C16:R180000C16<>"""",Master!R2C16:R180000C16)))"
Range("D14").Select
Selection.FormulaArray = _
"=COUNT(IF(Master!R2C7:R180000C7=""Electronic Banking Services"",IF(Master!R2C16:R180000C16<>"""",Master!R2C16:R180000C16)))"
Range("D15").Select
Selection.FormulaArray = _
"=COUNT(IF(Master!R2C7:R180000C7=""Lending Solutions"",IF(Master!R2C6:R180000C6=""DPS"",IF(Master!R2C16:R180000C16<>"""",Master!R2C16:R180000C16))))"
Range("D16").Select
Selection.FormulaArray = _
"=COUNT(IF(Master!R2C7:R180000C7=""Output Solutions"",IF(Master!R2C16:R180000C16<>"""",Master!R2C16:R180000C16)))"
Range("D17").Select
Selection.FormulaArray = _
"=COUNT(IF(Master!R2C7:R180000C7=""Risk Management Solutions"",IF(Master!R2C6:R180000C6=""DPS"",IF(Master!R2C16:R180000C16<>"""",Master!R2C16:R180000C16))))"
Range("D18").Select
Selection.FormulaArray = _
"=COUNT(IF(Master!R2C7:R180000C7=""Business Services"",IF(Master!R2C16:R180000C16<>"""",Master!R2C16:R180000C16)))"
Range("E19").Select
Selection.End(xlUp).Select
Selection.End(xlUp).Select
Range("E3").Select
Range(Selection, Selection.End(xlDown)).Select
Selection.Copy
Range("E11:E19").Select
Application.CutCopyMode = False
Selection.FillDown
Range("E11").Select
Selection.NumberFormat = "#,##0_);[Red](#,##0)"
ActiveCell.FormulaR1C1 = "=RC[-2]-RC[-1]"
Range("D11").Select
Selection.End(xlDown).Select
Range("E19").Select
Selection.End(xlUp).Select
Range("D11").Select
Selection.End(xlDown).Select
Range("E19").Select
Range(Selection, Selection.End(xlUp)).Select
Selection.FillDown
Selection.End(xlUp).Select
Selection.End(xlUp).Select
Selection.End(xlUp).Select
Range("E3").Select
Range(Selection, Selection.End(xlDown)).Select
Selection.Copy
Application.CutCopyMode = False
Selection.Copy
Range("E11:E19").Select
Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
Application.CutCopyMode = False
Range("C11").Select
Range(Selection, Selection.End(xlDown)).Select
Selection.Copy
Range("F11").Select
ActiveSheet.Paste
Application.CutCopyMode = False
Range("F11").Select
Selection.FormulaArray = _
"=SUM(IF(Master!R2C7:R180000C7=""Biller Solutions"",IF(Master!R2C17:R180000C17<>"""",Master!R2C17:R180000C17)))"
Range("F12").Select
Selection.FormulaArray = _
"=SUM(IF(Master!R2C7:R180000C7=""Card Services"",IF(Master!R2C17:R180000C17<>"""",Master!R2C17:R180000C17)))"
Range("F13").Select
Selection.FormulaArray = _
"=SUM(IF(Master!R2C7:R180000C7=""DPS Administration"",IF(Master!R2C17:R180000C17<>"""",Master!R2C17:R180000C17)))"
Range("F14").Select
Selection.FormulaArray = _
"=SUM(IF(Master!R2C7:R180000C7=""Electronic Banking Services"",IF(Master!R2C17:R180000C17<>"""",Master!R2C17:R180000C17)))"
Range("F15").Select
Selection.FormulaArray = _
"=SUM(IF(Master!R2C7:R180000C7=""Lending Solutions"",IF(Master!R2C6:R180000C6=""DPS"",IF(Master!R2C17:R180000C17<>"""",Master!R2C17:R180000C17))))"
Range("F16").Select
Selection.FormulaArray = _
"=SUM(IF(Master!R2C7:R180000C7=""Output Solutions"",IF(Master!R2C17:R180000C17<>"""",Master!R2C17:R180000C17)))"
Range("F17").Select
Selection.FormulaArray = _
"=SUM(IF(Master!R2C7:R180000C7=""Risk Management Solutions"",IF(Master!R2C6:R180000C6=""DPS"",IF(Master!R2C17:R180000C17<>"""",Master!R2C17:R180000C17))))"
Range("F18").Select
Selection.FormulaArray = _
"=SUM(IF(Master!R2C7:R180000C7=""Business Services"",IF(Master!R2C17:R180000C17<>"""",Master!R2C17:R180000C17)))"
Range("F19").Select
Selection.End(xlUp).Select
Range(Selection, Selection.End(xlDown)).Select
Selection.Copy
Range("G11").Select
ActiveSheet.Paste
Application.CutCopyMode = False
Selection.FormulaArray = _
"=SUM(IF(Master!R2C7:R180000C7=""Biller Solutions"",IF(Master!R2C18:R180000C18<>"""",Master!R2C18:R180000C18)))"
Range("F18").Select
Selection.End(xlUp).Select
Range("F11").Select
Range(Selection, Selection.End(xlDown)).Select
Selection.Copy
Range("G11").Select
ActiveSheet.Paste
Range("G11").Select
Application.CutCopyMode = False
Selection.FormulaArray = _
"=SUM(IF(Master!R2C7:R180000C7=""Biller Solutions"",IF(Master!R2C18:R180000C18<>"""",Master!R2C18:R180000C18)))"
Range("G12").Select
Selection.FormulaArray = _
"=SUM(IF(Master!R2C7:R180000C7=""Card Services"",IF(Master!R2C18:R180000C18<>"""",Master!R2C18:R180000C18)))"
Range("G13").Select
Selection.FormulaArray = _
"=SUM(IF(Master!R2C7:R180000C7=""DPS Administration"",IF(Master!R2C18:R180000C18<>"""",Master!R2C18:R180000C18)))"
Range("G14").Select
Selection.FormulaArray = _
"=SUM(IF(Master!R2C7:R180000C7=""Electronic Banking Services"",IF(Master!R2C18:R180000C18<>"""",Master!R2C18:R180000C18)))"
Range("G15").Select
Selection.FormulaArray = _
"=SUM(IF(Master!R2C7:R180000C7=""Lending Solutions"",IF(Master!R2C6:R180000C6=""DPS"",IF(Master!R2C18:R180000C18<>"""",Master!R2C18:R180000C18))))"
Range("G16").Select
Selection.FormulaArray = _
"=SUM(IF(Master!R2C7:R180000C7=""Output Solutions"",IF(Master!R2C18:R180000C18<>"""",Master!R2C18:R180000C18)))"
Range("G17").Select
Selection.FormulaArray = _
"=SUM(IF(Master!R2C7:R180000C7=""Risk Management Solutions"",IF(Master!R2C6:R180000C6=""DPS"",IF(Master!R2C18:R180000C18<>"""",Master!R2C18:R180000C18))))"
Range("G18").Select
Selection.FormulaArray = _
"=SUM(IF(Master!R2C7:R180000C7=""Business Services"",IF(Master!R2C18:R180000C18<>"""",Master!R2C18:R180000C18)))"
Range("E19").Select
Selection.End(xlUp).Select
Range(Selection, Selection.End(xlDown)).Select
Selection.Copy
Range("H11").Select
ActiveSheet.Paste
Application.CutCopyMode = False
Range("F9").Select
Selection.End(xlUp).Select
Range("F3").Select
Selection.Copy
Range("F11:G19").Select
Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
Application.CutCopyMode = False
ActiveWindow.SmallScroll Down:=6
Range("C11:C17").Select
Selection.Copy
Range("C21").Select
ActiveSheet.Paste
Range("C27").Select
Application.CutCopyMode = False
Selection.ClearContents
Range("B21").Select
ActiveCell.FormulaR1C1 = "FIG Administration"
Range("C21").Select
Selection.FormulaArray = _
"=COUNT(IF(Master!R2C7:R180000C7=""FIG Administration"",IF(Master!R2C15:R180000C15<>"""",Master!R2C15:R180000C15)))"
Range("B22").Select
ActiveCell.FormulaR1C1 = "Investment Services"
Range("C22").Select
Selection.FormulaArray = _
"=COUNT(IF(Master!R2C7:R180000C7=""Investment Services"",IF(Master!R2C15:R180000C15<>"""",Master!R2C15:R180000C15)))"
Range("B23").Select
ActiveCell.FormulaR1C1 = "IP Australia"
Range("C23").Select
Selection.FormulaArray = _
"=COUNT(IF(Master!R2C7:R180000C7=""IP Australia"",IF(Master!R2C15:R180000C15<>"""",Master!R2C15:R180000C15)))"
Range("C15").Select
Selection.Copy
Range("C24").Select
ActiveSheet.Paste
Application.CutCopyMode = False
Selection.FormulaArray = _
"=COUNT(IF(Master!R2C7:R180000C7=""Lending Solutions"",IF(Master!R2C6:R180000C6=""FIG"",IF(Master!R2C15:R180000C15<>"""",Master!R2C15:R180000C15))))"
Range("C23").Select
Selection.Copy
Range("C25").Select
ActiveSheet.Paste
Range("B25").Select
Application.CutCopyMode = False
ActiveCell.FormulaR1C1 = "Revenue Enhancement"
Range("C25").Select
Selection.FormulaArray = _
"=COUNT(IF(Master!R2C7:R180000C7=""Revenue Enhancement"",IF(Master!R2C15:R180000C15<>"""",Master!R2C15:R180000C15)))"
Range("C24").Select
Selection.Copy
Range("C26").Select
ActiveSheet.Paste
Range("B26").Select
Application.CutCopyMode = False
ActiveCell.FormulaR1C1 = "Risk Management Solutions"
Range("C26").Select
Selection.FormulaArray = _
"=COUNT(IF(Master!R2C7:R180000C7=""Risk Management Solutions"",IF(Master!R2C6:R180000C6=""FIG"",IF(Master!R2C15:R180000C15<>"""",Master!R2C15:R180000C15))))"
Range("C27").Select
ActiveCell.FormulaR1C1 = "=SUM(R[-6]C:R[-1]C)"
Range("C28").Select
Selection.End(xlUp).Select
Selection.End(xlUp).Select
Range(Selection, Selection.End(xlDown)).Select
Selection.Copy
Range("D21").Select
ActiveSheet.Paste
Application.CutCopyMode = False
Range("D21").Select
Selection.FormulaArray = _
"=COUNT(IF(Master!R2C7:R180000C7=""FIG Administration"",IF(Master!R2C16:R180000C16<>"""",Master!R2C16:R180000C16)))"
Range("D22").Select
Selection.FormulaArray = _
"=COUNT(IF(Master!R2C7:R180000C7=""Investment Services"",IF(Master!R2C16:R180000C16<>"""",Master!R2C16:R180000C16)))"
Range("D23").Select
Selection.FormulaArray = _
"=COUNT(IF(Master!R2C7:R180000C7=""IP Australia"",IF(Master!R2C16:R180000C16<>"""",Master!R2C16:R180000C16)))"
Range("D24").Select
Selection.FormulaArray = _
"=COUNT(IF(Master!R2C7:R180000C7=""Lending Solutions"",IF(Master!R2C6:R180000C6=""FIG"",IF(Master!R2C16:R180000C16<>"""",Master!R2C16:R180000C16))))"
Range("D25").Select
Selection.FormulaArray = _
"=COUNT(IF(Master!R2C7:R180000C7=""Revenue Enhancement"",IF(Master!R2C16:R180000C16<>"""",Master!R2C16:R180000C16)))"
Range("D26").Select
Selection.FormulaArray = _
"=COUNT(IF(Master!R2C7:R180000C7=""Risk Management Solutions"",IF(Master!R2C6:R180000C6=""FIG"",IF(Master!R2C16:R180000C16<>"""",Master!R2C16:R180000C16))))"
Range("D27").Select
Selection.End(xlUp).Select
Range("E20").Select
Selection.End(xlUp).Select
Selection.End(xlUp).Select
Selection.Copy
Range("E12").Select
Selection.End(xlDown).Select
Range("E21").Select
ActiveSheet.Paste
Range("D21").Select
Selection.End(xlDown).Select
Range("E27").Select
Range(Selection, Selection.End(xlUp)).Select
Application.CutCopyMode = False
Selection.FillDown
Range("C21").Select
Range(Selection, Selection.End(xlToRight)).Select
Range("C21").Select
Range(Selection, Selection.End(xlDown)).Select
Selection.Copy
Selection.End(xlToRight).Select
Range("F21").Select
ActiveSheet.Paste
Application.CutCopyMode = False
Range("F21").Select
Selection.FormulaArray = _
"=SUM(IF(Master!R2C7:R180000C7=""FIG Administration"",IF(Master!R2C17:R180000C17<>"""",Master!R2C17:R180000C17)))"
Range("F22").Select
Selection.FormulaArray = _
"=SUM(IF(Master!R2C7:R180000C7=""Investment Services"",IF(Master!R2C17:R180000C17<>"""",Master!R2C17:R180000C17)))"
Range("F23").Select
Selection.FormulaArray = _
"=SUM(IF(Master!R2C7:R180000C7=""IP Australia"",IF(Master!R2C17:R180000C17<>"""",Master!R2C17:R180000C17)))"
Range("F24").Select
Selection.FormulaArray = _
"=SUM(IF(Master!R2C7:R180000C7=""Lending Solutions"",IF(Master!R2C6:R180000C6=""FIG"",IF(Master!R2C17:R180000C17<>"""",Master!R2C17:R180000C17))))"
Range("F25").Select
Selection.FormulaArray = _
"=SUM(IF(Master!R2C7:R180000C7=""Revenue Enhancement"",IF(Master!R2C17:R180000C17<>"""",Master!R2C17:R180000C17)))"
Range("F26").Select
Selection.FormulaArray = _
"=SUM(IF(Master!R2C7:R180000C7=""Risk Management Solutions"",IF(Master!R2C6:R180000C6=""FIG"",IF(Master!R2C17:R180000C17<>"""",Master!R2C17:R180000C17))))"
Range("F27").Select
Selection.End(xlUp).Select
Range(Selection, Selection.End(xlDown)).Select
Selection.Copy
Range("G21").Select
ActiveSheet.Paste
Range("G21").Select
Application.CutCopyMode = False
Selection.FormulaArray = _
"=SUM(IF(Master!R2C7:R180000C7=""FIG Administration"",IF(Master!R2C18:R180000C18<>"""",Master!R2C18:R180000C18)))"
Range("G22").Select
Selection.FormulaArray = _
"=SUM(IF(Master!R2C7:R180000C7=""Investment Services"",IF(Master!R2C18:R180000C18<>"""",Master!R2C18:R180000C18)))"
Range("G23").Select
Selection.FormulaArray = _
"=SUM(IF(Master!R2C7:R180000C7=""IP Australia"",IF(Master!R2C18:R180000C18<>"""",Master!R2C18:R180000C18)))"
Range("G24").Select
Selection.FormulaArray = _
"=SUM(IF(Master!R2C7:R180000C7=""Lending Solutions"",IF(Master!R2C6:R180000C6=""FIG"",IF(Master!R2C18:R180000C18<>"""",Master!R2C18:R180000C18))))"
Range("G25").Select
Selection.FormulaArray = _
"=SUM(IF(Master!R2C7:R180000C7=""Revenue Enhancement"",IF(Master!R2C18:R180000C18<>"""",Master!R2C18:R180000C18)))"
Range("G26").Select
Selection.FormulaArray = _
"=SUM(IF(Master!R2C7:R180000C7=""Risk Management Solutions"",IF(Master!R2C6:R180000C6=""FIG"",IF(Master!R2C18:R180000C18<>"""",Master!R2C18:R180000C18))))"
Range("G26").Select
Selection.End(xlUp).Select
Range("E21").Select
Range(Selection, Selection.End(xlDown)).Select
Selection.Copy
Selection.End(xlToRight).Select
Range("H21").Select
ActiveSheet.Paste
Range("F18").Select
Application.CutCopyMode = False
Selection.Copy
Range("F21:G27").Select
Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
Application.CutCopyMode = False
Range("D29").Select
ActiveWindow.SmallScroll Down:=-3
Range("C29").Select
Selection.End(xlUp).Select
Selection.End(xlUp).Select
Range("C21:C25").Select
Selection.Copy
Range("C29").Select
ActiveSheet.Paste
Application.CutCopyMode = False
Range("C29").Select
Selection.FormulaArray = _
"=COUNT(IF(Master!R2C7:R180000C7=""Audit"",IF(Master!R2C15:R180000C15<>"""",Master!R2C15:R180000C15)))"
Range("B30").Select
ActiveCell.FormulaR1C1 = "Facilities"
Range("C30").Select
Selection.FormulaArray = _
"=COUNT(IF(Master!R2C7:R180000C7=""Facilities"",IF(Master!R2C15:R180000C15<>"""",Master!R2C15:R180000C15)))"
Range("B31").Select
ActiveCell.FormulaR1C1 = "HR"
Range("C31").Select
Selection.FormulaArray = _
"=COUNT(IF(Master!R2C7:R180000C7=""HR"",IF(Master!R2C15:R180000C15<>"""",Master!R2C15:R180000C15)))"
Range("B34").Select
Selection.EntireRow.Insert
Range("B33").Select
Selection.Copy
Range("B34").Select
ActiveSheet.Paste
Range("B32").Select
Application.CutCopyMode = False
ActiveCell.FormulaR1C1 = "Legal"
Range("B33").Select
ActiveCell.FormulaR1C1 = "M&A"
Range("C32").Select
Selection.FormulaArray = _
"=COUNT(IF(Master!R2C7:R180000C7=""Legal"",IF(Master!R2C6:R180000C6=""FIG"",IF(Master!R2C15:R180000C15<>"""",Master!R2C15:R180000C15))))"
Range("C33").Select
Selection.FormulaArray = _
"=COUNT(IF(Master!R2C7:R180000C7=""M&A"",IF(Master!R2C15:R180000C15<>"""",Master!R2C15:R180000C15)))"
Range("C33:C37").Select
Selection.FillDown
Range("B34").Select
ActiveCell.FormulaR1C1 = "Marketing"
Range("C34").Select
Selection.FormulaArray = _
"=COUNT(IF(Master!R2C7:R180000C7=""Marketing"",IF(Master!R2C15:R180000C15<>"""",Master!R2C15:R180000C15)))"
Range("C35").Select
Selection.FormulaArray = _
"=COUNT(IF(Master!R2C7:R180000C7=""Risk"",IF(Master!R2C15:R180000C15<>"""",Master!R2C15:R180000C15)))"
Range("B36").Select
ActiveCell.FormulaR1C1 = "Security"
Range("C36").Select
Selection.FormulaArray = _
"=COUNT(IF(Master!R2C7:R180000C7=""Security"",IF(Master!R2C15:R180000C15<>"""",Master!R2C15:R180000C15)))"
Range("B37").Select
ActiveCell.FormulaR1C1 = "Strategic Sourcing"
Range("C37").Select
Selection.FormulaArray = _
"=COUNT(IF(Master!R2C7:R180000C7=""Strategic Sourcing"",IF(Master!R2C15:R180000C15<>"""",Master!R2C15:R180000C15)))"
Range("B38").Select
ActiveCell.FormulaR1C1 = "Corporate Total"
Range("C38").Select
ActiveCell.FormulaR1C1 = "=SUM(R[-9]C:R[-1]C)"
Range("C38").Select
Selection.End(xlUp).Select
Range(Selection, Selection.End(xlDown)).Select
Selection.Copy
Range("D29").Select
ActiveSheet.Paste
Application.CutCopyMode = False
Range("D29").Select
Selection.FormulaArray = _
"=COUNT(IF(Master!R2C7:R180000C7=""Audit"",IF(Master!R2C16:R180000C16<>"""",Master!R2C16:R180000C16)))"
Range("D30").Select
Selection.FormulaArray = _
"=COUNT(IF(Master!R2C7:R180000C7=""Facilities"",IF(Master!R2C16:R180000C16<>"""",Master!R2C16:R180000C16)))"
Range("D31").Select
Selection.FormulaArray = _
"=COUNT(IF(Master!R2C7:R180000C7=""HR"",IF(Master!R2C16:R180000C16<>"""",Master!R2C16:R180000C16)))"
Range("D32").Select
Selection.FormulaArray = _
"=COUNT(IF(Master!R2C7:R180000C7=""Legal"",IF(Master!R2C6:R180000C6=""FIG"",IF(Master!R2C16:R180000C16<>"""",Master!R2C16:R180000C16))))"
Range("D33").Select
Selection.FormulaArray = _
"=COUNT(IF(Master!R2C7:R180000C7=""M&A"",IF(Master!R2C16:R180000C16<>"""",Master!R2C16:R180000C16)))"
Range("D34").Select
Selection.FormulaArray = _
"=COUNT(IF(Master!R2C7:R180000C7=""Marketing"",IF(Master!R2C16:R180000C16<>"""",Master!R2C16:R180000C16)))"
Range("D35").Select
Selection.FormulaArray = _
"=COUNT(IF(Master!R2C7:R180000C7=""Risk"",IF(Master!R2C16:R180000C16<>"""",Master!R2C16:R180000C16)))"
Range("D36").Select
Selection.FormulaArray = _
"=COUNT(IF(Master!R2C7:R180000C7=""Security"",IF(Master!R2C16:R180000C16<>"""",Master!R2C16:R180000C16)))"
Range("D37").Select
Selection.FormulaArray = _
"=COUNT(IF(Master!R2C7:R180000C7=""Strategic Sourcing"",IF(Master!R2C16:R180000C16<>"""",Master!R2C16:R180000C16)))"
Range("D32").Select
Selection.FormulaArray = _
"=COUNT(IF(Master!R2C7:R180000C7=""Legal"",IF(Master!R2C16:R180000C16<>"""",Master!R2C16:R180000C16)))"
Range("D40").Select
Selection.End(xlUp).Select
Selection.End(xlUp).Select
Range("E29").Select
Selection.NumberFormat = "#,##0_);[Red](#,##0)"
ActiveCell.FormulaR1C1 = "=RC[-2]-RC[-1]"
Range("D29").Select
Selection.End(xlDown).Select
Range("E38").Select
Range(Selection, Selection.End(xlUp)).Select
Selection.FillDown
Range("C38").Select
Selection.End(xlUp).Select
Range(Selection, Selection.End(xlDown)).Select
Selection.Copy
Range("D29").Select
Application.CutCopyMode = False
Range("C32").Select
Selection.FormulaArray = _
"=COUNT(IF(Master!R2C7:R180000C7=""Legal"",IF(Master!R2C15:R180000C15<>"""",Master!R2C15:R180000C15)))"
Range("C29").Select
Range(Selection, Selection.End(xlDown)).Select
Selection.Copy
Range("F29").Select
ActiveSheet.Paste
Application.CutCopyMode = False
Range("F29").Select
Selection.FormulaArray = _
"=SUM(IF(Master!R2C7:R180000C7=""Audit"",IF(Master!R2C17:R180000C17<>"""",Master!R2C17:R180000C17)))"
Range("F30").Select
Selection.FormulaArray = _
"=SUM(IF(Master!R2C7:R180000C7=""Facilities"",IF(Master!R2C17:R180000C17<>"""",Master!R2C17:R180000C17)))"
Range("F31").Select
Selection.FormulaArray = _
"=SUM(IF(Master!R2C7:R180000C7=""HR"",IF(Master!R2C17:R180000C17<>"""",Master!R2C17:R180000C17)))"
Range("F32").Select
Selection.FormulaArray = _
"=SUM(IF(Master!R2C7:R180000C7=""Legal"",IF(Master!R2C17:R180000C17<>"""",Master!R2C17:R180000C17)))"
Range("F33").Select
Selection.FormulaArray = _
"=SUM(IF(Master!R2C7:R180000C7=""M&A"",IF(Master!R2C17:R180000C17<>"""",Master!R2C17:R180000C17)))"
Range("F34").Select
Selection.FormulaArray = _
"=SUM(IF(Master!R2C7:R180000C7=""Marketing"",IF(Master!R2C17:R180000C17<>"""",Master!R2C17:R180000C17)))"
Range("F35").Select
Selection.FormulaArray = _
"=SUM(IF(Master!R2C7:R180000C7=""Risk"",IF(Master!R2C17:R180000C17<>"""",Master!R2C17:R180000C17)))"
Range("F36").Select
Selection.FormulaArray = _
"=SUM(IF(Master!R2C7:R180000C7=""Security"",IF(Master!R2C17:R180000C17<>"""",Master!R2C17:R180000C17)))"
Range("F37").Select
Selection.FormulaArray = _
"=SUM(IF(Master!R2C7:R180000C7=""Strategic Sourcing"",IF(Master!R2C17:R180000C17<>"""",Master!R2C17:R180000C17)))"
Range("F38").Select
Selection.End(xlUp).Select
Range(Selection, Selection.End(xlDown)).Select
Selection.Copy
Range("G29").Select
ActiveSheet.Paste
Application.CutCopyMode = False
Range("G29").Select
Selection.FormulaArray = _
"=SUM(IF(Master!R2C7:R180000C7=""Audit"",IF(Master!R2C18:R180000C18<>"""",Master!R2C18:R180000C18)))"
Range("G30").Select
Selection.FormulaArray = _
"=SUM(IF(Master!R2C7:R180000C7=""Facilities"",IF(Master!R2C18:R180000C18<>"""",Master!R2C18:R180000C18)))"
Range("G31").Select
Selection.FormulaArray = _
"=SUM(IF(Master!R2C18:R180000C18=""HR"",IF(Master!R2C18:R180000C18<>"""",Master!R2C18:R180000C18)))"
Range("G32").Select
Selection.FormulaArray = _
"=SUM(IF(Master!R2C7:R180000C7=""Legal"",IF(Master!R2C18:R180000C18<>"""",Master!R2C18:R180000C18)))"
Range("G33").Select
Selection.FormulaArray = _
"=SUM(IF(Master!R2C7:R180000C7=""M&A"",IF(Master!R2C18:R180000C18<>"""",Master!R2C18:R180000C18)))"
Range("G34").Select
Selection.FormulaArray = _
"=SUM(IF(Master!R2C7:R180000C7=""Marketing"",IF(Master!R2C18:R180000C18<>"""",Master!R2C18:R180000C18)))"
Range("G35").Select
Selection.FormulaArray = _
"=SUM(IF(Master!R2C7:R180000C7=""Risk"",IF(Master!R2C18:R180000C18<>"""",Master!R2C18:R180000C18)))"
Range("G36").Select
Selection.FormulaArray = _
"=SUM(IF(Master!R2C7:R180000C7=""Security"",IF(Master!R2C18:R180000C18<>"""",Master!R2C18:R180000C18)))"
Range("G37").Select
Selection.FormulaArray = _
"=SUM(IF(Master!R2C7:R180000C7=""Strategic Sourcing"",IF(Master!R2C18:R180000C18<>"""",Master!R2C18:R180000C18)))"
Range("G38").Select
Selection.End(xlUp).Select
Range("H29").Select
Selection.NumberFormat = "#,##0_);[Red](#,##0)"
ActiveCell.FormulaR1C1 = "=RC[-2]-RC[-1]"
Range("G29").Select
Selection.End(xlDown).Select
Range("H38").Select
Range(Selection, Selection.End(xlUp)).Select
Selection.FillDown
Range("H35").Select
Selection.End(xlUp).Select
Range("H26").Select
Selection.Copy
Range("H29:H38").Select
Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
Application.CutCopyMode = False
Range("F21").Select
Selection.Copy
Range("F29:G38").Select
Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
Application.CutCopyMode = False
Range("E19").Select
ActiveWindow.SmallScroll Down:=-18
Range("E9").Select
ActiveWindow.SmallScroll Down:=15
Range("E38").Select
ActiveWindow.SmallScroll Down:=6
Range("C24").Select
Selection.Copy
Range("C40").Select
ActiveSheet.Paste
Application.CutCopyMode = False
Selection.FormulaArray = _
"=COUNT(,IF(Master!R2C6:R180000C6=""FET"",IF(Master!R2C15:R180000C15<>"""",Master!R2C15:R180000C15)))"
Selection.FormulaArray = _
"=COUNT(IF(Master!R2C6:R180000C6=""FET"",IF(Master!R2C15:R180000C15<>"""",Master!R2C15:R180000C15)))"
Selection.Copy
Range("D40").Select
ActiveSheet.Paste
Application.CutCopyMode = False
Selection.FormulaArray = _
"=COUNT(IF(Master!R2C6:R180000C6=""FET"",IF(Master!R2C16:R180000C16<>"""",Master!R2C16:R180000C16)))"
Range("E40").Select
Selection.NumberFormat = "#,##0_);[Red](#,##0)"
ActiveCell.FormulaR1C1 = "=RC[-2]-RC[-1]"
Range("C40").Select
Selection.Copy
Range("F40").Select
ActiveSheet.Paste
Application.CutCopyMode = False
Selection.FormulaArray = _
"=COUNT(IF(Master!R2C6:R180000C6=""FET"",IF(Master!R2C17:R180000C17<>"""",Master!R2C17:R180000C17)))"
Range("F40").Select
Selection.FormulaArray = _
"=SUM(IF(Master!R2C6:R180000C6=""FET"",IF(Master!R2C17:R180000C17<>"""",Master!R2C17:R180000C17)))"
Range("F40").Select
Selection.Copy
Range("G40").Select
ActiveSheet.Paste
Application.CutCopyMode = False
Selection.FormulaArray = _
"=SUM(IF(Master!R2C6:R180000C6=""FET"",IF(Master!R2C18:R180000C18<>"""",Master!R2C18:R180000C18)))"
Range("H40").Select
Selection.NumberFormat = "#,##0_);[Red](#,##0)"
ActiveCell.FormulaR1C1 = "=RC[-2]-RC[-1]"
Range("C40:H40").Select
Selection.Copy
Range("C42").Select
ActiveSheet.Paste
Range("C44").Select
ActiveSheet.Paste
Range("C46").Select
ActiveSheet.Paste
Range("C48").Select
ActiveSheet.Paste
Application.CutCopyMode = False
Range("C42").Select
Selection.FormulaArray = _
"=COUNT(IF(Master!R2C6:R180000C6=""FGS"",IF(Master!R2C15:R180000C15<>"""",Master!R2C15:R180000C15)))"
Range("D42").Select
Selection.FormulaArray = _
"=COUNT(IF(Master!R2C6:R180000C6=""FGS"",IF(Master!R2C16:R180000C16<>"""",Master!R2C16:R180000C16)))"
Range("F42").Select
Selection.FormulaArray = _
"=SUM(IF(Master!R2C6:R180000C6=""FGS"",IF(Master!R2C17:R180000C17<>"""",Master!R2C17:R180000C17)))"
Range("G42").Select
Selection.FormulaArray = _
"=SUM(IF(Master!R2C6:R180000C6=""FGS"",IF(Master!R2C18:R180000C18<>"""",Master!R2C18:R180000C18)))"
Range("G44").Select
Selection.FormulaArray = _
"=SUM(IF(Master!R2C6:R180000C6=""Sales"",IF(Master!R2C18:R180000C18<>"""",Master!R2C18:R180000C18)))"
Range("F44").Select
Selection.FormulaArray = _
"=SUM(IF(Master!R2C6:R180000C6=""Sales"",IF(Master!R2C17:R180000C17<>"""",Master!R2C17:R180000C17)))"
Range("D44").Select
Selection.FormulaArray = _
"=COUNT(IF(Master!R2C6:R180000C6=""Sales"",IF(Master!R2C16:R180000C16<>"""",Master!R2C16:R180000C16)))"
Range("C44").Select
Selection.FormulaArray = _
"=COUNT(IF(Master!R2C6:R180000C6=""Sales"",IF(Master!R2C15:R180000C15<>"""",Master!R2C15:R180000C15)))"
Range("A46").Select
ActiveCell.FormulaR1C1 = "Operating Committee"
Range("C46").Select
Selection.FormulaArray = _
"=COUNT(IF(Master!R2C6:R180000C6=""Operating Committee"",IF(Master!R2C15:R180000C15<>"""",Master!R2C15:R180000C15)))"
Range("D46").Select
Selection.FormulaArray = _
"=COUNT(IF(Master!R2C6:R180000C6=""Operating Committee"",IF(Master!R2C16:R180000C16<>"""",Master!R2C16:R180000C16)))"
Range("F46").Select
Selection.FormulaArray = _
"=SUM(IF(Master!R2C6:R180000C6=""Operating Committee"",IF(Master!R2C17:R180000C17<>"""",Master!R2C17:R180000C17)))"
Range("G46").Select
Selection.FormulaArray = _
"=SUM(IF(Master!R2C6:R180000C6=""Operating Committee"",IF(Master!R2C18:R180000C18<>"""",Master!R2C18:R180000C18)))"
Range("G48").Select
Selection.FormulaArray = _
"=SUM(IF(Master!R2C6:R180000C6=""Operating Committee"",IF(Master!R2C18:R180000C18<>"""",Master!R2C18:R180000C18)))"
Range("F48").Select
Selection.FormulaArray = _
"=SUM(IF(Master!R2C6:R180000C6=""Operating Committee"",IF(Master!R2C17:R180000C17<>"""",Master!R2C17:R180000C17)))"
Range("G48").Select
Selection.FormulaArray = _
"=SUM(IF(Master!R2C6:R180000C6=""CEO"",IF(Master!R2C18:R180000C18<>"""",Master!R2C18:R180000C18)))"
Range("F48").Select
Selection.FormulaArray = _
"=SUM(IF(Master!R2C6:R180000C6=""CEO"",IF(Master!R2C17:R180000C17<>"""",Master!R2C17:R180000C17)))"
Range("D48").Select
Selection.FormulaArray = _
"=COUNT(IF(Master!R2C6:R180000C6=""CEO"",IF(Master!R2C16:R180000C16<>"""",Master!R2C16:R180000C16)))"
Range("C48").Select
Selection.FormulaArray = _
"=COUNT(IF(Master!R2C6:R180000C6=""CEO"",IF(Master!R2C15:R180000C15<>"""",Master!R2C15:R180000C15)))"
Range("C50").Select
ActiveCell.FormulaR1C1 = _
"=R[-2]C+R[-4]C+R[-6]C+R[-8]C+R[-10]C+R[-12]C+R[-23]C+R[-31]C+R[-41]C"
Range("C50").Select
Selection.Copy
Range("D50").Select
ActiveSheet.Paste
Range("E50").Select
ActiveSheet.Paste
Range("F50").Select
ActiveSheet.Paste
Range("G50").Select
ActiveSheet.Paste
Range("H50").Select
ActiveSheet.Paste
Application.CutCopyMode = False
Range("C50:E50").Select
Selection.Borders(xlDiagonalDown).LineStyle = xlNone
Selection.Borders(xlDiagonalUp).LineStyle = xlNone
Selection.Borders(xlEdgeLeft).LineStyle = xlNone
With Selection.Borders(xlEdgeTop)
.LineStyle = xlDouble
.ColorIndex = xlAutomatic
.TintAndShade = 0
.Weight = xlThick
End With
With Selection.Borders(xlEdgeBottom)
.LineStyle = xlDouble
.ColorIndex = xlAutomatic
.TintAndShade = 0
.Weight = xlThick
End With
Selection.Borders(xlEdgeRight).LineStyle = xlNone
Selection.Borders(xlInsideVertical).LineStyle = xlNone
Selection.Borders(xlInsideHorizontal).LineStyle = xlNone
Range("G47").Select
ActiveWindow.SmallScroll Down:=-27
Range("F50").Select
Selection.EntireColumn.Insert
ActiveWindow.SmallScroll Down:=-33
Columns("F:F").ColumnWidth = 1.71
ActiveWindow.SmallScroll Down:=24
Range("G50:I50").Select
Selection.Borders(xlDiagonalDown).LineStyle = xlNone
Selection.Borders(xlDiagonalUp).LineStyle = xlNone
Selection.Borders(xlEdgeLeft).LineStyle = xlNone
With Selection.Borders(xlEdgeTop)
.LineStyle = xlDouble
.ColorIndex = xlAutomatic
.TintAndShade = 0
.Weight = xlThick
End With
With Selection.Borders(xlEdgeBottom)
.LineStyle = xlDouble
.ColorIndex = xlAutomatic
.TintAndShade = 0
.Weight = xlThick
End With
Selection.Borders(xlEdgeRight).LineStyle = xlNone
Selection.Borders(xlInsideVertical).LineStyle = xlNone
Selection.Borders(xlInsideHorizontal).LineStyle = xlNone
ActiveWindow.SmallScroll Down:=-39
Range("K1:M1").Select
With Selection
.HorizontalAlignment = xlCenter
.VerticalAlignment = xlBottom
.WrapText = False
.Orientation = 0
.AddIndent = False
.IndentLevel = 0
.ShrinkToFit = False
.ReadingOrder = xlContext
.MergeCells = False
End With
Selection.Merge
ActiveCell.FormulaR1C1 = "Annual Equity Incentive Plan"
Range("C2:E2").Select
Selection.Copy
Range("K2").Select
ActiveSheet.Paste
Range("K1:M1").Select
Application.CutCopyMode = False
Selection.Borders(xlDiagonalDown).LineStyle = xlNone
Selection.Borders(xlDiagonalUp).LineStyle = xlNone
Selection.Borders(xlEdgeLeft).LineStyle = xlNone
Selection.Borders(xlEdgeTop).LineStyle = xlNone
With Selection.Borders(xlEdgeBottom)
.LineStyle = xlContinuous
.ColorIndex = xlAutomatic
.TintAndShade = 0
.Weight = xlThin
End With
Selection.Borders(xlEdgeRight).LineStyle = xlNone
Selection.Borders(xlInsideVertical).LineStyle = xlNone
Selection.Borders(xlInsideHorizontal).LineStyle = xlNone
Range("C3").Select
Range(Selection, Selection.End(xlToRight)).Select
Range(Selection, Selection.End(xlToRight)).Select
Range(Selection, Selection.End(xlToLeft)).Select
Range(Selection, Selection.End(xlDown)).Select
Range(Selection, Selection.End(xlDown)).Select
Range(Selection, Selection.End(xlUp)).Select
Range(Selection, Selection.End(xlDown)).Select
Range(Selection, Selection.End(xlDown)).Select
Range(Selection, Selection.End(xlDown)).Select
Range(Selection, Selection.End(xlDown)).Select
Range(Selection, Selection.End(xlDown)).Select
Range(Selection, Selection.End(xlDown)).Select
Range(Selection, Selection.End(xlDown)).Select
Range(Selection, Selection.End(xlDown)).Select
Range(Selection, Selection.End(xlDown)).Select
Range(Selection, Selection.End(xlDown)).Select
Range(Selection, Selection.End(xlDown)).Select
Range(Selection, Selection.End(xlDown)).Select
Range(Selection, Selection.End(xlDown)).Select
Range(Selection, Selection.End(xlDown)).Select
Range(Selection, Selection.End(xlDown)).Select
Range(Selection, Selection.End(xlDown)).Select
Range(Selection, Selection.End(xlUp)).Select
Range(Selection, Selection.End(xlUp)).Select
Range(Selection, Selection.End(xlUp)).Select
Range(Selection, Selection.End(xlDown)).Select
Selection.Copy
Range("K3").Select
ActiveSheet.Paste
Range("L3").Select
Application.CutCopyMode = False
Range("K3").Select
ActiveSheet.Previous.Select
Range("V2").Select
ActiveSheet.Next.Select
Range("K3").Select
Selection.FormulaArray = _
"=COUNT(IF(Master!R2C7:R180000C7=""Commumity Bank Solutions"",IF(Master!R2C22:R180000C22<>"""",Master!R2C22:R180000C22)))"
Range("K4").Select
ActiveCell.FormulaR1C1 = _
"=COUNT(IF(Master!R2C7:R180000C7=""Credit Union Solutions"",IF(Master!R2C15:R180000C15<>"""",Master!R2C15:R180000C22)))"
Range("K4").Select
Selection.FormulaArray = _
"=COUNT(IF(Master!R2C7:R180000C7=""Credit Union Solutions"",IF(Master!R2C22:R180000C22<>"""",Master!R2C22:R180000C22)))"
Range("K5").Select
Selection.FormulaArray = _
"=COUNT(IF(Master!R2C7:R180000C7=""DIS Administration"",IF(Master!R2C22:R180000C22<>"""",Master!R2C22:R180000C22)))"
Range("K6").Select
Selection.FormulaArray = _
"=COUNT(IF(Master!R2C7:R180000C7=""IPPS"",IF(Master!R2C22:R180000C22<>"""",Master!R2C22:R180000C22)))"
Range("K7").Select
Selection.FormulaArray = _
"=COUNT(IF(Master!R2C7:R180000C7=""Large Bank Solutions"",IF(Master!R2C22:R180000C22<>"""",Master!R2C22:R180000C22)))"
Range("K8").Select
Selection.FormulaArray = _
"=COUNT(IF(Master!R2C7:R180000C7=""SAE"",IF(Master!R2C22:R180000C22<>"""",Master!R2C22:R180000C22)))"
Range("K11").Select
Selection.FormulaArray = _
"=COUNT(IF(Master!R2C7:R180000C7=""Biller Solutions"",IF(Master!R2C22:R180000C22<>"""",Master!R2C22:R180000C22)))"
Range("K12").Select
Selection.FormulaArray = _
"=COUNT(IF(Master!R2C7:R180000C7=""Card Services"",IF(Master!R2C22:R180000C22<>"""",Master!R2C22:R180000C22)))"
Range("K13").Select
Selection.FormulaArray = _
"=COUNT(IF(Master!R2C7:R180000C7=""DPS Administration"",IF(Master!R2C22:R180000C22<>"""",Master!R2C22:R180000C22)))"
Range("K14").Select
Selection.FormulaArray = _
"=COUNT(IF(Master!R2C7:R180000C7=""Electronic Banking Services"",IF(Master!R2C22:R180000C22<>"""",Master!R2C22:R180000C22)))"
Range("K15").Select
Selection.FormulaArray = _
"=COUNT(IF(Master!R2C7:R180000C7=""Lending Solutions"",IF(Master!R2C6:R180000C6=""DPS"",IF(Master!R2C22:R180000C22<>"""",Master!R2C22:R180000C22))))"
Range("K16").Select
Selection.FormulaArray = _
"=COUNT(IF(Master!R2C7:R180000C7=""Output Solutions"",IF(Master!R2C22:R180000C22<>"""",Master!R2C22:R180000C22)))"
Range("K17").Select
Selection.FormulaArray = _
"=COUNT(IF(Master!R2C7:R180000C7=""Risk Management Solutions"",IF(Master!R2C6:R180000C6=""DPS"",IF(Master!R2C22:R180000C22<>"""",Master!R2C22:R180000C22))))"
Range("K18").Select
Selection.FormulaArray = _
"=COUNT(IF(Master!R2C7:R180000C7=""Business Services"",IF(Master!R2C22:R180000C22<>"""",Master!R2C22:R180000C22)))"
Range("K21").Select
Selection.FormulaArray = _
"=COUNT(IF(Master!R2C7:R180000C7=""FIG Administration"",IF(Master!R2C22:R180000C22<>"""",Master!R2C22:R180000C22)))"
Range("K22").Select
Selection.FormulaArray = _
"=COUNT(IF(Master!R2C7:R180000C7=""Investment Services"",IF(Master!R2C22:R180000C22<>"""",Master!R2C22:R180000C22)))"
Range("K23").Select
Selection.FormulaArray = _
"=COUNT(IF(Master!R2C7:R180000C7=""IP Australia"",IF(Master!R2C22:R180000C22<>"""",Master!R2C22:R180000C22)))"
Range("K24").Select
Selection.FormulaArray = _
"=COUNT(IF(Master!R2C7:R180000C7=""Lending Solutions"",IF(Master!R2C6:R180000C6=""FIG"",IF(Master!R2C22:R180000C22<>"""",Master!R2C22:R180000C22))))"
Range("K25").Select
Selection.FormulaArray = _
"=COUNT(IF(Master!R2C7:R180000C7=""Revenue Enhancement"",IF(Master!R2C22:R180000C22<>"""",Master!R2C22:R180000C22)))"
Range("K26").Select
Selection.FormulaArray = _
"=COUNT(IF(Master!R2C7:R180000C7=""Risk Management Solutions"",IF(Master!R2C6:R180000C6=""FIG"",IF(Master!R2C22:R180000C22<>"""",Master!R2C22:R180000C22))))"
Range("K29").Select
Selection.FormulaArray = _
"=COUNT(IF(Master!R2C7:R180000C7=""Audit"",IF(Master!R2C22:R180000C22<>"""",Master!R2C22:R180000C22)))"
Range("K30").Select
Selection.FormulaArray = _
"=COUNT(IF(Master!R2C7:R180000C7=""Facilities"",IF(Master!R2C22:R180000C22<>"""",Master!R2C22:R180000C22)))"
Range("K31").Select
Selection.FormulaArray = _
"=COUNT(IF(Master!R2C7:R180000C7=""HR"",IF(Master!R2C22:R180000C22<>"""",Master!R2C22:R180000C22)))"
Range("K32").Select
Selection.FormulaArray = _
"=COUNT(IF(Master!R2C7:R180000C7=""Legal"",IF(Master!R2C22:R180000C22<>"""",Master!R2C22:R180000C22)))"
Range("K33").Select
Selection.FormulaArray = _
"=COUNT(IF(Master!R2C7:R180000C7=""M&A"",IF(Master!R2C22:R180000C22<>"""",Master!R2C22:R180000C22)))"
Range("K34").Select
Selection.FormulaArray = _
"=COUNT(IF(Master!R2C7:R180000C7=""Marketing"",IF(Master!R2C22:R180000C22<>"""",Master!R2C22:R180000C22)))"
Range("K35").Select
Selection.FormulaArray = _
"=COUNT(IF(Master!R2C7:R180000C7=""Risk"",IF(Master!R2C22:R180000C22<>"""",Master!R2C22:R180000C22)))"
Range("K36").Select
Selection.FormulaArray = _
"=COUNT(IF(Master!R2C7:R180000C7=""Security"",IF(Master!R2C22:R180000C22<>"""",Master!R2C22:R180000C22)))"
Range("K37").Select
Selection.FormulaArray = _
"=COUNT(IF(Master!R2C7:R180000C7=""Strategic Sourcing"",IF(Master!R2C22:R180000C22<>"""",Master!R2C22:R180000C22)))"
Range("K37").Select
Selection.End(xlUp).Select
Range("K40").Select
Selection.FormulaArray = _
"=COUNT(IF(Master!R2C6:R180000C6=""FET"",IF(Master!R2C15:R180000C15<>"""",Master!R2C22:R180000C22)))"
Selection.FormulaArray = _
"=COUNT(IF(Master!R2C6:R180000C6=""FET"",IF(Master!R2C22:R180000C22<>"""",Master!R2C22:R180000C22)))"
Range("K42").Select
Selection.FormulaArray = _
"=COUNT(IF(Master!R2C6:R180000C6=""FGS"",IF(Master!R2C22:R180000C22<>"""",Master!R2C22:R180000C22)))"
Range("K44").Select
Selection.FormulaArray = _
"=COUNT(IF(Master!R2C6:R180000C6=""Sales"",IF(Master!R2C22:R180000C22<>"""",Master!R2C22:R180000C22)))"
Range("K46").Select
Selection.FormulaArray = _
"=COUNT(IF(Master!R2C6:R180000C6=""Operating Committee"",IF(Master!R2C22:R180000C22<>"""",Master!R2C22:R180000C22)))"
Range("K48").Select
Selection.FormulaArray = _
"=COUNT(IF(Master!R2C6:R180000C6=""CEO"",IF(Master!R2C22:R180000C22<>"""",Master!R2C22:R180000C22)))"
Range("K51").Select
Selection.End(xlUp).Select
Range("K48").Select
Selection.End(xlUp).Select
Selection.End(xlUp).Select
Selection.End(xlUp).Select
Selection.End(xlUp).Select
Selection.End(xlUp).Select
Selection.End(xlUp).Select
Selection.End(xlUp).Select
Selection.End(xlUp).Select
Selection.End(xlUp).Select
Selection.End(xlUp).Select
Selection.End(xlUp).Select
Selection.End(xlUp).Select
Selection.End(xlUp).Select
Selection.End(xlUp).Select
Selection.End(xlUp).Select
Selection.End(xlUp).Select
Selection.End(xlUp).Select
Range("L3").Select
Selection.FormulaArray = _
"=COUNT(IF(Master!R2C7:R180000C7=""Commumity Bank Solutions"",IF(Master!R2C23:R180000C23<>"""",Master!R2C23:R180000C23)))"
Range("L4").Select
Selection.FormulaArray = _
"=COUNT(IF(Master!R2C7:R180000C7=""Credit Union Solutions"",IF(Master!R2C23:R180000C23<>"""",Master!R2C23:R180000C23)))"
Range("L5").Select
Selection.FormulaArray = _
"=COUNT(IF(Master!R2C7:R180000C7=""DIS Administration"",IF(Master!R2C23:R180000C23<>"""",Master!R2C23:R180000C23)))"
Range("L6").Select
Selection.FormulaArray = _
"=COUNT(IF(Master!R2C7:R180000C7=""IPPS"",IF(Master!R2C23:R180000C23<>"""",Master!R2C23:R180000C23)))"
Range("L7").Select
Selection.FormulaArray = _
"=COUNT(IF(Master!R2C7:R180000C7=""Large Bank Solutions"",IF(Master!R2C23:R180000C23<>"""",Master!R2C23:R180000C23)))"
Range("L8").Select
Selection.FormulaArray = _
"=COUNT(IF(Master!R2C7:R180000C7=""SAE"",IF(Master!R2C23:R180000C23<>"""",Master!R2C23:R180000C23)))"
Range("L11").Select
Selection.FormulaArray = _
"=COUNT(IF(Master!R2C7:R180000C7=""Biller Solutions"",IF(Master!R2C23:R180000C23<>"""",Master!R2C23:R180000C23)))"
Range("L12").Select
Selection.FormulaArray = _
"=COUNT(IF(Master!R2C7:R180000C7=""Card Services"",IF(Master!R2C23:R180000C23<>"""",Master!R2C23:R180000C23)))"
Range("L13").Select
Selection.FormulaArray = _
"=COUNT(IF(Master!R2C7:R180000C7=""DPS Administration"",IF(Master!R2C23:R180000C23<>"""",Master!R2C23:R180000C23)))"
Range("L14").Select
Selection.FormulaArray = _
"=COUNT(IF(Master!R2C7:R180000C7=""Electronic Banking Services"",IF(Master!R2C23:R180000C23<>"""",Master!R2C23:R180000C23)))"
Range("L15").Select
Selection.FormulaArray = _
"=COUNT(IF(Master!R2C7:R180000C7=""Lending Solutions"",IF(Master!R2C6:R180000C6=""DPS"",IF(Master!R2C23:R180000C23<>"""",Master!R2C23:R180000C23))))"
Range("L16").Select
Selection.FormulaArray = _
"=COUNT(IF(Master!R2C7:R180000C7=""Output Solutions"",IF(Master!R2C23:R180000C23<>"""",Master!R2C23:R180000C23)))"
Range("L17").Select
Selection.FormulaArray = _
"=COUNT(IF(Master!R2C7:R180000C7=""Risk Management Solutions"",IF(Master!R2C6:R180000C6=""DPS"",IF(Master!R2C23:R180000C23<>"""",Master!R2C23:R180000C23))))"
Range("L18").Select
Selection.FormulaArray = _
"=COUNT(IF(Master!R2C7:R180000C7=""Business Services"",IF(Master!R2C23:R180000C23<>"""",Master!R2C23:R180000C23)))"
Range("L21").Select
Selection.FormulaArray = _
"=COUNT(IF(Master!R2C7:R180000C7=""FIG Administration"",IF(Master!R2C23:R180000C23<>"""",Master!R2C23:R180000C23)))"
Range("L22").Select
Selection.FormulaArray = _
"=COUNT(IF(Master!R2C7:R180000C7=""Investment Services"",IF(Master!R2C23:R180000C23<>"""",Master!R2C23:R180000C23)))"
Range("L23").Select
Selection.FormulaArray = _
"=COUNT(IF(Master!R2C7:R180000C7=""IP Australia"",IF(Master!R2C23:R180000C23<>"""",Master!R2C23:R180000C23)))"
Range("L24").Select
Selection.FormulaArray = _
"=COUNT(IF(Master!R2C7:R180000C7=""Lending Solutions"",IF(Master!R2C6:R180000C6=""FIG"",IF(Master!R2C23:R180000C23<>"""",Master!R2C23:R180000C23))))"
Range("L25").Select
Selection.FormulaArray = _
"=COUNT(IF(Master!R2C7:R180000C7=""Revenue Enhancement"",IF(Master!R2C23:R180000C23<>"""",Master!R2C23:R180000C23)))"
Range("L26").Select
Selection.FormulaArray = _
"=COUNT(IF(Master!R2C7:R180000C7=""Risk Management Solutions"",IF(Master!R2C6:R180000C6=""FIG"",IF(Master!R2C23:R180000C23<>"""",Master!R2C23:R180000C23))))"
Range("L29").Select
Selection.FormulaArray = _
"=COUNT(IF(Master!R2C7:R180000C7=""Audit"",IF(Master!R2C23:R180000C23<>"""",Master!R2C23:R180000C23)))"
Range("L30").Select
Selection.FormulaArray = _
"=COUNT(IF(Master!R2C7:R180000C7=""Facilities"",IF(Master!R2C23:R180000C23<>"""",Master!R2C23:R180000C23)))"
Range("L31").Select
Selection.FormulaArray = _
"=COUNT(IF(Master!R2C7:R180000C7=""HR"",IF(Master!R2C23:R180000C23<>"""",Master!R2C23:R180000C23)))"
Range("L32").Select
Selection.FormulaArray = _
"=COUNT(IF(Master!R2C7:R180000C7=""Legal"",IF(Master!R2C23:R180000C23<>"""",Master!R2C23:R180000C23)))"
Range("L33").Select
Selection.FormulaArray = _
"=COUNT(IF(Master!R2C7:R180000C7=""M&A"",IF(Master!R2C23:R180000C23<>"""",Master!R2C23:R180000C23)))"
Range("L34").Select
Selection.FormulaArray = _
"=COUNT(IF(Master!R2C7:R180000C7=""Marketing"",IF(Master!R2C23:R180000C23<>"""",Master!R2C23:R180000C23)))"
Range("L35").Select
Selection.FormulaArray = _
"=COUNT(IF(Master!R2C7:R180000C7=""Risk"",IF(Master!R2C23:R180000C23<>"""",Master!R2C23:R180000C23)))"
Range("L36").Select
Selection.FormulaArray = _
"=COUNT(IF(Master!R2C7:R180000C7=""Security"",IF(Master!R2C23:R180000C23<>"""",Master!R2C23:R180000C23)))"
Range("L37").Select
Selection.FormulaArray = _
"=COUNT(IF(Master!R2C7:R180000C7=""Strategic Sourcing"",IF(Master!R2C23:R180000C23<>"""",Master!R2C23:R180000C23)))"
Range("L40").Select
Selection.FormulaArray = _
"=COUNT(IF(Master!R2C6:R180000C6=""FET"",IF(Master!R2C16:R180000C16<>"""",Master!R2C23:R180000C23)))"
Range("L42").Select
Selection.FormulaArray = _
"=COUNT(IF(Master!R2C6:R180000C6=""FGS"",IF(Master!R2C16:R180000C16<>"""",Master!R2C23:R180000C23)))"
Range("L44").Select
Selection.FormulaArray = _
"=COUNT(IF(Master!R2C6:R180000C6=""Sales"",IF(Master!R2C16:R180000C16<>"""",Master!R2C23:R180000C23)))"
Range("L40").Select
Selection.FormulaArray = _
"=COUNT(IF(Master!R2C6:R180000C6=""FET"",IF(Master!R2C23:R180000C23<>"""",Master!R2C23:R180000C23)))"
Range("L42").Select
Selection.FormulaArray = _
"=COUNT(IF(Master!R2C6:R180000C6=""FGS"",IF(Master!R2C23:R180000C23<>"""",Master!R2C23:R180000C23)))"
Range("L44").Select
Selection.FormulaArray = _
"=COUNT(IF(Master!R2C6:R180000C6=""Sales"",IF(Master!R2C23:R180000C23<>"""",Master!R2C23:R180000C23)))"
Range("L46").Select
Selection.FormulaArray = _
"=COUNT(IF(Master!R2C6:R180000C6=""Operating Committee"",IF(Master!R2C23:R180000C23<>"""",Master!R2C23:R180000C23)))"
Range("L48").Select
Selection.FormulaArray = _
"=COUNT(IF(Master!R2C6:R180000C6=""CEO"",IF(Master!R2C23:R180000C23<>"""",Master!R2C23:R180000C23)))"
Range("C50:E50").Select
Range("E50").Activate
Selection.Copy
Range("K50").Select
ActiveSheet.Paste
Range("M50").Select
Application.CutCopyMode = False
Range("K50").Select
Selection.End(xlUp).Select
Selection.End(xlUp).Select
Selection.End(xlUp).Select
Selection.End(xlUp).Select
Selection.End(xlUp).Select
Selection.End(xlUp).Select
Selection.End(xlUp).Select
Selection.End(xlUp).Select
Selection.End(xlUp).Select
Selection.End(xlUp).Select
Selection.End(xlUp).Select
Selection.End(xlUp).Select
Selection.End(xlUp).Select
Selection.End(xlUp).Select
Selection.End(xlUp).Select
Selection.End(xlUp).Select
Selection.End(xlUp).Select
Selection.End(xlUp).Select
Selection.End(xlUp).Select
Selection.End(xlUp).Select
Selection.End(xlUp).Select
Selection.End(xlToLeft).Select
Selection.End(xlToLeft).Select
Range("A1:I9").Select
Range(Selection, Selection.End(xlToRight)).Select
Range(Selection, Selection.End(xlToRight)).Select
Range(Selection, Selection.End(xlToLeft)).Select
Range(Selection, Selection.End(xlDown)).Select
Range(Selection, Selection.End(xlDown)).Select
Range(Selection, Selection.End(xlDown)).Select
Range(Selection, Selection.End(xlDown)).Select
Range(Selection, Selection.End(xlDown)).Select
Range(Selection, Selection.End(xlDown)).Select
Range(Selection, Selection.End(xlDown)).Select
Range(Selection, Selection.End(xlDown)).Select
Range(Selection, Selection.End(xlDown)).Select
Range(Selection, Selection.End(xlDown)).Select
Range(Selection, Selection.End(xlDown)).Select
Range(Selection, Selection.End(xlDown)).Select
Range(Selection, Selection.End(xlDown)).Select
Range(Selection, Selection.End(xlDown)).Select
Range(Selection, Selection.End(xlDown)).Select
Range(Selection, Selection.End(xlDown)).Select
Range(Selection, Selection.End(xlDown)).Select
Range(Selection, Selection.End(xlDown)).Select
Range(Selection, Selection.End(xlDown)).Select
Range(Selection, Selection.End(xlDown)).Select
Range(Selection, Selection.End(xlDown)).Select
Range(Selection, Selection.End(xlDown)).Select
With Selection.Font
.Name = "Univers LT 45 Light"
.Size = 11
.Strikethrough = False
.Superscript = False
.Subscript = False
.OutlineFont = False
.Shadow = False
.Underline = xlUnderlineStyleNone
.ThemeColor = xlThemeColorLight1
.TintAndShade = 0
.ThemeFont = xlThemeFontNone
End With
With Selection.Font
.Name = "Univers LT 45 Light"
.Size = 10
.Strikethrough = False
.Superscript = False
.Subscript = False
.OutlineFont = False
.Shadow = False
.Underline = xlUnderlineStyleNone
.ThemeColor = xlThemeColorLight1
.TintAndShade = 0
.ThemeFont = xlThemeFontNone
End With
Range("A9").Select
ActiveWindow.SmallScroll Down:=-9
Cells.Select
With Selection.Font
.Name = "Univers LT 55"
.Strikethrough = False
.Superscript = False
.Subscript = False
.OutlineFont = False
.Shadow = False
.Underline = xlUnderlineStyleNone
.ThemeColor = xlThemeColorLight1
.TintAndShade = 0
.ThemeFont = xlThemeFontNone
End With
Range("C5").Select
ActiveWindow.SmallScroll Down:=-15
Range("A1").Select
ActiveWindow.SelectedSheets.PrintPreview
ActiveWindow.View = xlPageBreakPreview
ActiveSheet.VPageBreaks(1).DragOff Direction:=xlToRight, RegionIndex:=1
ActiveSheet.PageSetup.PrintArea = "$A$1:$N$50"
ActiveSheet.VPageBreaks(1).DragOff Direction:=xlToRight, RegionIndex:=1
ActiveSheet.PageSetup.PrintArea = "$A$1"
Range("A1:M51").Select
ActiveWindow.SmallScroll Down:=-12
Range("A2").Select
ActiveWindow.SmallScroll Down:=-39
ActiveSheet.PageSetup.PrintArea = "$A$2"
Range("A1").Select
ActiveSheet.PageSetup.PrintArea = "$A$2:$N$2"
ActiveSheet.PageSetup.PrintArea = "$A$2:$N$53"
ActiveSheet.PageSetup.PrintArea = "$A$1:$N$53"
With ActiveSheet.PageSetup
.PrintTitleRows = ""
.PrintTitleColumns = ""
End With
ActiveSheet.PageSetup.PrintArea = "$A$1:$N$53"
With ActiveSheet.PageSetup
.LeftHeader = ""
.CenterHeader = _
"&""Univers LT 55,Bold""&12ACIP Target Summary by Operating Group and Division"
.RightHeader = ""
.LeftFooter = ""
.CenterFooter = ""
.RightFooter = ""
.LeftMargin = Application.InchesToPoints(0.7)
.RightMargin = Application.InchesToPoints(0.7)
.TopMargin = Application.InchesToPoints(0.5)
.BottomMargin = Application.InchesToPoints(0.75)
.HeaderMargin = Application.InchesToPoints(0.55)
.FooterMargin = Application.InchesToPoints(0.3)
.PrintHeadings = False
.PrintGridlines = False
.PrintComments = xlPrintNoComments
.PrintQuality = 600
.CenterHorizontally = False
.CenterVertically = False
.Orientation = xlLandscape
.Draft = False
.PaperSize = xlPaperLetter
.FirstPageNumber = xlAutomatic
.Order = xlDownThenOver
.BlackAndWhite = False
.Zoom = 85
.PrintErrors = xlPrintErrorsDisplayed
.OddAndEvenPagesHeaderFooter = False
.DifferentFirstPageHeaderFooter = False
.ScaleWithDocHeaderFooter = True
.AlignMarginsHeaderFooter = True
.EvenPage.LeftHeader.Text = ""
.EvenPage.CenterHeader.Text = ""
.EvenPage.RightHeader.Text = ""
.EvenPage.LeftFooter.Text = ""
.EvenPage.CenterFooter.Text = ""
.EvenPage.RightFooter.Text = ""
.FirstPage.LeftHeader.Text = ""
.FirstPage.CenterHeader.Text = ""
.FirstPage.RightHeader.Text = ""
.FirstPage.LeftFooter.Text = ""
.FirstPage.CenterFooter.Text = ""
.FirstPage.RightFooter.Text = ""
End With
ActiveWindow.SelectedSheets.PrintPreview
ActiveSheet.VPageBreaks(1).DragOff Direction:=xlToRight, RegionIndex:=1
With ActiveSheet.PageSetup
.LeftHeader = ""
.CenterHeader = _
"&""Univers LT 55,Bold""&12ACIP Target Summary by Operating Group and Division"
.RightHeader = ""
.LeftFooter = ""
.CenterFooter = ""
.RightFooter = ""
.LeftMargin = Application.InchesToPoints(0.7)
.RightMargin = Application.InchesToPoints(0.7)
.TopMargin = Application.InchesToPoints(0.41)
.BottomMargin = Application.InchesToPoints(0.75)
.HeaderMargin = Application.InchesToPoints(0.22)
.FooterMargin = Application.InchesToPoints(0.3)
.PrintHeadings = False
.PrintGridlines = False
.PrintComments = xlPrintNoComments
.PrintQuality = 600
.CenterHorizontally = False
.CenterVertically = False
.Orientation = xlLandscape
.Draft = False
.PaperSize = xlPaperLetter
.FirstPageNumber = xlAutomatic
.Order = xlDownThenOver
.BlackAndWhite = False
.Zoom = 63
.PrintErrors = xlPrintErrorsDisplayed
.OddAndEvenPagesHeaderFooter = False
.DifferentFirstPageHeaderFooter = False
.ScaleWithDocHeaderFooter = True
.AlignMarginsHeaderFooter = True
.EvenPage.LeftHeader.Text = ""
.EvenPage.CenterHeader.Text = ""
.EvenPage.RightHeader.Text = ""
.EvenPage.LeftFooter.Text = ""
.EvenPage.CenterFooter.Text = ""
.EvenPage.RightFooter.Text = ""
.FirstPage.LeftHeader.Text = ""
.FirstPage.CenterHeader.Text = ""
.FirstPage.RightHeader.Text = ""
.FirstPage.LeftFooter.Text = ""
.FirstPage.CenterFooter.Text = ""
.FirstPage.RightFooter.Text = ""
End With
End Sub

Once again I have never done coding so do not know what is actually going on. Please help
 

Excel Facts

Convert text numbers to real numbers
Select a column containing text numbers. Press Alt+D E F to quickly convert text to numbers. Faster than "Convert to Number"
Sort by date Sort by votes
I'm sure we can help you but that might be easier to do if you could tell us, in words, what those approx 1800 lines of code are meant to do.

I know it's recorded code but when using the recorder you probably shouldn't record everything in one go.:)
 
Upvote 0
Norie - Thanks for responding. I am trying to populate a summary sheet from a master worksheet and using array formulae.
Also you said that I do not record everything in one go. Is it possible to make stop recording and then continue to record in the same macro.
 
Upvote 0
No that's not possible - but why would you want to do that anyway?

Plenty of times when writing code I've stopped manually doing it, started the macro recorder and carry out whatever task I was looking for the code for.

I would then copy the recorded code into the main code, make adjustments as required and continue on.

I only had a quick look at your code last night but if I get a chance later I'll take a closer look.

I won't be able to totally clean it up but I'm sure I can give you some pointers.:)
 
Upvote 0
You must log in or register to reply here.

Similar threads

P
  • Solved
Recorded Macro Ammendments
Replies
3
Views
341
Joe4
Joe4
G
  • Question
How can i extract the correct leave time on this code?
Replies
1
Views
362
rlv01
R
C
  • Question
Daily Run data (copy data in loop by daily in worksheet)
Replies
3
Views
156
dermie_72
D
C
  • Solved
Trouble with vba 'loop' finding last row
Replies
5
Views
331
CaptainGravyBum
C
E
  • Solved
VBA fails when worksheet is protected?
Replies
1
Views
140
EssKayKay
E

Forum statistics

Threads
1,214,823
Messages
6,121,777
Members
449,049
Latest member
greyangel23

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