Sub Macro3()
'
' Macro3 Macro
'

'
    Sheets("Sheet3").Select
    Sheets("Sheet3").Move After:=Sheets(4)
    Sheets("Data").Select
    Range("D1").Select
    ActiveSheet.ListObjects.Add(xlSrcRange, Range("$D$1"), , xlNo).Name = "Table9"
    Range("Table9[[#Headers],[Column1]]").Select
    ActiveCell.FormulaR1C1 = "Completed Objects"
    Range("Table9[Completed Objects]").Select
    Columns("D:D").EntireColumn.AutoFit
    Range("Table9[Completed Objects]").Select
    ActiveSheet.ListObjects("Comple").Name = "CompletedObjects"
    Selection.ListObject.ListColumns.Add Position:=1
    Range("CompletedObjects[[#Headers],[Column1]]").Select
    Columns("E:E").EntireColumn.AutoFit
    Range("CompletedObjects[[#Headers],[Column1]]").Select
    ActiveCell.FormulaR1C1 = "Org Key"
    Range("CompletedObjects[[#Headers],[Completed Objects]]").Select
    ActiveCell.FormulaR1C1 = "Object"
    Range("CompletedObjects[Org Key]").Select
    ActiveCell.FormulaR1C1 = "1234"
    Range("CompletedObjects[Object]").Select
    ActiveCell.FormulaR1C1 = "5912375"
    Range("D3").Select
    ActiveCell.FormulaR1C1 = ""
    Range("E7").Select
    Windows("Budget Form.xlsm").Activate
    Windows("Employees.xlsx").Activate
    ActiveWindow.SmallScroll Down:=-12
    Sheets("Sheet1").Select
    ActiveWindow.SmallScroll Down:=-24
    Sheets("Sheet1 (2)").Select
    ActiveWindow.SmallScroll Down:=-60
    ActiveWindow.ScrollColumn = 2
    ActiveWindow.ScrollColumn = 3
    ActiveWindow.ScrollColumn = 4
    ActiveWindow.ScrollColumn = 5
    ActiveWindow.ScrollColumn = 6
    ActiveWindow.ScrollColumn = 7
    ActiveWindow.ScrollColumn = 8
    ActiveWindow.ScrollColumn = 9
    ActiveWindow.ScrollColumn = 10
    ActiveWindow.SmallScroll Down:=-18
    Sheets("Sheet1").Select
    ActiveWindow.SmallScroll Down:=-18
    Sheets("Sheet1 (2)").Select
    ActiveWindow.SmallScroll Down:=-24
    Sheets("Sheet1 (2)").Select
    ActiveWindow.ScrollColumn = 9
    ActiveWindow.ScrollColumn = 8
    ActiveWindow.ScrollColumn = 7
    ActiveWindow.ScrollColumn = 6
    ActiveWindow.ScrollColumn = 5
    ActiveWindow.ScrollColumn = 4
    ActiveWindow.ScrollColumn = 3
    ActiveWindow.ScrollColumn = 2
    ActiveWindow.ScrollColumn = 1
    Sheets("Sheet1").Select
    ActiveWindow.SmallScroll Down:=-3
    Range("K34").Select
    ActiveWindow.SmallScroll Down:=-39
    ActiveWindow.ScrollColumn = 2
    ActiveWindow.ScrollColumn = 3
    ActiveWindow.ScrollColumn = 4
    ActiveWindow.ScrollColumn = 5
    ActiveWindow.ScrollColumn = 6
    ActiveWindow.ScrollColumn = 7
    ActiveWindow.ScrollColumn = 8
    ActiveWindow.ScrollColumn = 9
    ActiveWindow.ScrollColumn = 10
    ActiveWindow.ScrollColumn = 11
    ActiveWindow.ScrollColumn = 12
    ActiveWindow.ScrollColumn = 11
    ActiveWindow.ScrollColumn = 10
    ActiveWindow.ScrollColumn = 9
    ActiveWindow.ScrollColumn = 8
    ActiveWindow.ScrollColumn = 7
    ActiveWindow.ScrollColumn = 6
    ActiveWindow.ScrollColumn = 5
    ActiveWindow.ScrollColumn = 3
    ActiveWindow.ScrollColumn = 2
    ActiveWindow.ScrollColumn = 1
    ActiveWindow.SmallScroll Down:=-18
    ActiveWindow.ScrollColumn = 2
    ActiveWindow.ScrollColumn = 3
    ActiveWindow.ScrollColumn = 4
    ActiveWindow.ScrollColumn = 5
    ActiveWindow.ScrollColumn = 6
    ActiveWindow.ScrollColumn = 7
    ActiveWindow.ScrollColumn = 8
    ActiveWindow.ScrollColumn = 9
    ActiveWindow.ScrollColumn = 10
    ActiveWindow.ScrollColumn = 11
    ActiveWindow.ScrollColumn = 12
    ActiveWindow.ScrollColumn = 11
    ActiveWindow.ScrollColumn = 10
    ActiveWindow.ScrollColumn = 9
    ActiveWindow.ScrollColumn = 8
    ActiveWindow.ScrollColumn = 7
    ActiveWindow.ScrollColumn = 6
    ActiveWindow.ScrollColumn = 5
    ActiveWindow.ScrollColumn = 4
    ActiveWindow.ScrollColumn = 3
    ActiveWindow.ScrollColumn = 2
    ActiveWindow.ScrollColumn = 1
    ActiveWindow.SmallScroll Down:=108
    Range("A141").Select
    ActiveWindow.SmallScroll Down:=15
    Range("K144").Select
    ActiveWindow.ScrollColumn = 2
    ActiveWindow.ScrollColumn = 3
    ActiveWindow.ScrollColumn = 4
    ActiveWindow.ScrollColumn = 5
    ActiveWindow.ScrollColumn = 6
    ActiveWindow.ScrollColumn = 7
    ActiveWindow.ScrollColumn = 8
    Range("O144").Select
    ActiveWindow.ScrollColumn = 7
    ActiveWindow.ScrollColumn = 6
    ActiveWindow.ScrollColumn = 5
    ActiveWindow.ScrollColumn = 4
    ActiveWindow.ScrollColumn = 3
    ActiveWindow.ScrollColumn = 2
    ActiveWindow.ScrollColumn = 1
    ActiveWindow.ScrollColumn = 2
    ActiveWindow.ScrollColumn = 3
    ActiveWindow.ScrollColumn = 4
    ActiveWindow.ScrollColumn = 5
    ActiveWindow.ScrollColumn = 6
    ActiveWindow.ScrollColumn = 7
    ActiveWindow.ScrollColumn = 8
    ActiveWindow.ScrollColumn = 9
    ActiveWindow.ScrollColumn = 10
    ActiveWindow.ScrollColumn = 11
    ActiveWindow.ScrollColumn = 12
    ActiveWindow.ScrollColumn = 11
    ActiveWindow.ScrollColumn = 10
    ActiveWindow.ScrollColumn = 9
    ActiveWindow.ScrollColumn = 7
    ActiveWindow.ScrollColumn = 5
    ActiveWindow.ScrollColumn = 3
    ActiveWindow.ScrollColumn = 2
    ActiveWindow.ScrollColumn = 1
    ActiveWindow.SmallScroll Down:=-99
    ActiveWindow.ScrollColumn = 2
    ActiveWindow.ScrollColumn = 3
    ActiveWindow.ScrollColumn = 4
    ActiveWindow.ScrollColumn = 5
    ActiveWindow.ScrollColumn = 6
    ActiveWindow.ScrollColumn = 7
    ActiveWindow.ScrollColumn = 8
    ActiveWindow.ScrollColumn = 9
    ActiveWindow.ScrollColumn = 10
    ActiveWindow.ScrollColumn = 9
    ActiveWindow.ScrollColumn = 8
    ActiveWindow.ScrollColumn = 7
    ActiveWindow.ScrollColumn = 6
    ActiveWindow.ScrollColumn = 5
    ActiveWindow.ScrollColumn = 4
    ActiveWindow.ScrollColumn = 3
    ActiveWindow.ScrollColumn = 2
    ActiveWindow.ScrollColumn = 1
    ActiveWindow.SmallScroll Down:=-51
    rows("6:6").Select
    ActiveWindow.ScrollColumn = 2
    ActiveWindow.ScrollColumn = 1
    ActiveWindow.ScrollColumn = 2
    ActiveWindow.ScrollColumn = 3
    ActiveWindow.ScrollColumn = 4
    ActiveWindow.ScrollColumn = 5
    ActiveWindow.ScrollColumn = 6
    ActiveWindow.ScrollColumn = 7
    ActiveWindow.ScrollColumn = 8
    ActiveWindow.ScrollColumn = 9
    ActiveWindow.ScrollColumn = 10
    ActiveWindow.ScrollColumn = 11
    ActiveWindow.ScrollColumn = 12
    ActiveWindow.ScrollColumn = 11
    ActiveWindow.ScrollColumn = 10
    ActiveWindow.ScrollColumn = 9
    ActiveWindow.ScrollColumn = 8
    ActiveWindow.ScrollColumn = 7
    ActiveWindow.ScrollColumn = 6
    ActiveWindow.ScrollColumn = 5
    ActiveWindow.ScrollColumn = 4
    ActiveWindow.ScrollColumn = 3
    ActiveWindow.ScrollColumn = 2
    ActiveWindow.ScrollColumn = 1
    ActiveWorkbook.Worksheets("Sheet1").AutoFilter.Sort.SortFields.Clear
    ActiveWorkbook.Worksheets("Sheet1").AutoFilter.Sort.SortFields.Add key:=Range _
        ("F1:F191"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:= _
        xlSortNormal
    With ActiveWorkbook.Worksheets("Sheet1").AutoFilter.Sort
        .Header = xlYes
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With
    ActiveWindow.SmallScroll Down:=27
    rows("32:39").Select
    ActiveWindow.SmallScroll Down:=18
    rows("55:57").Select
    ActiveWindow.SmallScroll Down:=21
    Range("F77:F79").Select
    ActiveWindow.SmallScroll Down:=9
    Range("F84:F93").Select
    ActiveWindow.SmallScroll Down:=15
    Range("F103").Select
    ActiveWindow.SmallScroll Down:=24
    Range("A117:F119").Select
    Range("F119").Activate
    ActiveWindow.Close
    Sheets("Last Year").Select
    Range("K10").Select
    Sheets("Last Year").Select
    Range("K6").Select
    ActiveSheet.Shapes.Range(Array("Button 3")).Select
    Selection.OnAction = "UpdateLastYear"
    Range("L6").Select
    Sheets("Last Year").Select
    ActiveSheet.Shapes.Range(Array("Button 3")).Select
    Selection.OnAction = "UpdateLastYear"
    Range("K10").Select
    ActiveSheet.Shapes.Range(Array("Button 3")).Select
    Range("L9").Select
    Sheets("Last Year").Select
    ActiveSheet.Shapes.Range(Array("Button 3")).Select
    Selection.OnAction = "UpdateLastYear"
    Range("L11").Select
    ActiveSheet.Buttons.Add(894.75, 146.25, 72, 72).Select
    Selection.OnAction = "UpdateLastYear"
    Range("K13").Select
End Sub