Command Button Not working in new file

ActiveSheet.Next.Select
    Columns("E:Q").Select
    Selection.EntireColumn.Hidden = False
    Columns("J:P").Select
    Selection.EntireColumn.Hidden = True
    Columns("H:H").Select
    With Selection.Interior
        .Pattern = xlNone
        .TintAndShade = 0
        .PatternTintAndShade = 0
    End With
    Columns("Z:Z").Select
    Selection.EntireColumn.Hidden = True
    Range("Q9").Select
    ActiveCell.FormulaR1C1 = "=RC[-8]"
    Range("Q12").Select
    ActiveCell.FormulaR1C1 = "=RC[-8]"
    Range("Q17:Q185").Select
    Selection.Replace What:="Y", Replacement:="Z", LookAt:=xlPart, _
        SearchOrder:=xlByRows, MatchCase:=True, SearchFormat:=False, _
        ReplaceFormat:=False
    Range("R17:R137").Select
    Selection.Replace What:="I", Replacement:="J", LookAt:=xlPart, _
        SearchOrder:=xlByRows, MatchCase:=True, SearchFormat:=False, _
        ReplaceFormat:=False
    ActiveSheet.Next.Select
    Columns("E:Q").Select
    Selection.EntireColumn.Hidden = False
    Columns("J:P").Select
    Selection.EntireColumn.Hidden = True
    Columns("H:H").Select
    With Selection.Interior
        .Pattern = xlNone
        .TintAndShade = 0
        .PatternTintAndShade = 0
    End With
    Range("Q8").Select
    ActiveCell.FormulaR1C1 = "=RC[-8]"
    Range("Q11").Select
    ActiveCell.FormulaR1C1 = "=RC[-8]"
    Columns("Z:Z").Select
    Selection.EntireColumn.Hidden = True
    Range("Q16:Q141").Select
    Selection.Replace What:="Y", Replacement:="Z", LookAt:=xlPart, _
        SearchOrder:=xlByRows, MatchCase:=True, SearchFormat:=False, _
        ReplaceFormat:=False
    Range("R16:R141").Select
    Selection.Replace What:="I", Replacement:="J", LookAt:=xlPart, _
        SearchOrder:=xlByRows, MatchCase:=True, SearchFormat:=False, _
        ReplaceFormat:=False
    ActiveSheet.Next.Select
    Columns("E:Q").Select
    Selection.EntireColumn.Hidden = False
    Columns("J:P").Select
    Selection.EntireColumn.Hidden = True
    Columns("H:H").Select
    With Selection.Interior
        .Pattern = xlNone
        .TintAndShade = 0
        .PatternTintAndShade = 0
    End With
    Range("Q8").Select
    ActiveCell.FormulaR1C1 = "=RC[-8]"
    Range("Q11").Select
    ActiveCell.FormulaR1C1 = "=RC[-8]"
    Columns("Z:Z").Select
    Selection.EntireColumn.Hidden = True
    Range("Q16:Q141").Select
    Selection.Replace What:="Y", Replacement:="Z", LookAt:=xlPart, _
        SearchOrder:=xlByRows, MatchCase:=True, SearchFormat:=False, _
        ReplaceFormat:=False
    Range("R16:R141").Select
    Selection.Replace What:="I", Replacement:="J", LookAt:=xlPart, _
        SearchOrder:=xlByRows, MatchCase:=True, SearchFormat:=False, _
        ReplaceFormat:=False
    ActiveSheet.Next.Select
    Columns("E:Q").Select
    Selection.EntireColumn.Hidden = False
    Columns("J:P").Select
    Selection.EntireColumn.Hidden = True
    Columns("H:H").Select
    With Selection.Interior
        .Pattern = xlNone
        .TintAndShade = 0
        .PatternTintAndShade = 0
    End With
    Columns("Z:Z").Select
    Selection.EntireColumn.Hidden = True
    Range("Q8").Select
    ActiveCell.FormulaR1C1 = "=RC[-8]"
    Range("Q11").Select
    ActiveCell.FormulaR1C1 = "=RC[-8]"
    Range("Q17:Q117").Select
    Selection.Replace What:="Y", Replacement:="Z", LookAt:=xlPart, _
        SearchOrder:=xlByRows, MatchCase:=True, SearchFormat:=False, _
        ReplaceFormat:=False
    Range("R17:R117").Select
    Selection.Replace What:="I", Replacement:="J", LookAt:=xlPart, _
        SearchOrder:=xlByRows, MatchCase:=True, SearchFormat:=False, _
        ReplaceFormat:=False
    ActiveSheet.Next.Select
    Columns("E:Q").Select
    Selection.EntireColumn.Hidden = False
    Columns("J:P").Select
    Selection.EntireColumn.Hidden = True
    Columns("H:H").Select
    With Selection.Interior
        .Pattern = xlNone
        .TintAndShade = 0
        .PatternTintAndShade = 0
    End With
    Range("Q8").Select
    ActiveCell.FormulaR1C1 = "=RC[-8]"
    Range("Q11").Select
    ActiveCell.FormulaR1C1 = "=RC[-8]"
    Columns("Z:Z").Select
    Selection.EntireColumn.Hidden = True
    Range("Q16:Q106").Select
    Selection.Replace What:="Y", Replacement:="Z", LookAt:=xlPart, _
        SearchOrder:=xlByRows, MatchCase:=True, SearchFormat:=False, _
        ReplaceFormat:=False
    Range("R16:R86").Select
    Selection.Replace What:="I", Replacement:="J", LookAt:=xlPart, _
        SearchOrder:=xlByRows, MatchCase:=True, SearchFormat:=False, _
        ReplaceFormat:=False
    ActiveSheet.Next.Select
    Columns("E:Q").Select
    Selection.EntireColumn.Hidden = False
    Columns("J:P").Select
    Selection.EntireColumn.Hidden = True
    Columns("H:H").Select
    With Selection.Interior
        .Pattern = xlNone
        .TintAndShade = 0
        .PatternTintAndShade = 0
    End With
    Columns("Z:Z").Select
    Selection.EntireColumn.Hidden = True
    Range("Q8").Select
    ActiveCell.FormulaR1C1 = "=RC[-8]"
    Range("Q11").Select
    ActiveCell.FormulaR1C1 = "=RC[-8]"
    Range("Q16:Q106").Select
    Selection.Replace What:="Y", Replacement:="Z", LookAt:=xlPart, _
        SearchOrder:=xlByRows, MatchCase:=True, SearchFormat:=False, _
        ReplaceFormat:=False
    Range("R16:R105").Select
    Selection.Replace What:="I", Replacement:="J", LookAt:=xlPart, _
        SearchOrder:=xlByRows, MatchCase:=True, SearchFormat:=False, _
        ReplaceFormat:=False
    ActiveSheet.Next.Select
    Columns("E:Q").Select
    Selection.EntireColumn.Hidden = False
    Columns("J:P").Select
    Selection.EntireColumn.Hidden = True
    Columns("H:H").Select
    With Selection.Interior
        .Pattern = xlNone
        .TintAndShade = 0
        .PatternTintAndShade = 0
    End With
    Range("Q8").Select
    ActiveCell.FormulaR1C1 = "=RC[-8]"
    Range("Q11").Select
    ActiveCell.FormulaR1C1 = "=RC[-8]"
    Columns("Z:Z").Select
    Selection.EntireColumn.Hidden = True
    Range("Q16:Q145").Select
    Selection.Replace What:="Y", Replacement:="Z", LookAt:=xlPart, _
        SearchOrder:=xlByRows, MatchCase:=True, SearchFormat:=False, _
        ReplaceFormat:=False
    Range("R16:R145").Select
    Selection.Replace What:="I", Replacement:="J", LookAt:=xlPart, _
        SearchOrder:=xlByRows, MatchCase:=True, SearchFormat:=False, _
        ReplaceFormat:=False
    ActiveSheet.Next.Select
    Columns("E:Q").Select
    Selection.EntireColumn.Hidden = False
    Columns("J:P").Select
    Selection.EntireColumn.Hidden = True
    Columns("H:H").Select
    With Selection.Interior
        .Pattern = xlNone
        .TintAndShade = 0
        .PatternTintAndShade = 0
    End With
    Range("Q6").Select
    ActiveCell.FormulaR1C1 = "=RC[-8]"
    Range("Q9").Select
    ActiveCell.FormulaR1C1 = "=RC[-8]"
    Columns("Z:Z").Select
    Selection.EntireColumn.Hidden = True
    Range("Q15:Q313").Select
    Selection.Replace What:="Y", Replacement:="Z", LookAt:=xlPart, _
        SearchOrder:=xlByRows, MatchCase:=True, SearchFormat:=False, _
        ReplaceFormat:=False
    Range("R15:R288").Select
    Selection.Replace What:="I", Replacement:="J", LookAt:=xlPart, _
        SearchOrder:=xlByRows, MatchCase:=True, SearchFormat:=False, _
        ReplaceFormat:=False
    ActiveSheet.Next.Select
    Columns("E:Q").Select
    Selection.EntireColumn.Hidden = False
    Columns("J:P").Select
    Selection.EntireColumn.Hidden = True
    Columns("H:H").Select
    With Selection.Interior
        .Pattern = xlNone
        .TintAndShade = 0
        .PatternTintAndShade = 0
    End With
    Range("Q8").Select
    ActiveCell.FormulaR1C1 = "=RC[-8]"
    Range("Q11").Select
    ActiveCell.FormulaR1C1 = "=RC[-8]"
    Columns("Z:Z").Select
    Selection.EntireColumn.Hidden = True
    Range("Q16:Q141").Select
    Selection.Replace What:="Y", Replacement:="Z", LookAt:=xlPart, _
        SearchOrder:=xlByRows, MatchCase:=True, SearchFormat:=False, _
        ReplaceFormat:=False
    Range("R16:R141").Select
    Selection.Replace What:="I", Replacement:="J", LookAt:=xlPart, _
        SearchOrder:=xlByRows, MatchCase:=True, SearchFormat:=False, _
        ReplaceFormat:=False
    ActiveSheet.Next.Select
    Columns("E:Q").Select
    Selection.EntireColumn.Hidden = False
    Columns("J:P").Select
    Selection.EntireColumn.Hidden = True
    Columns("H:H").Select
    With Selection.Interior
        .Pattern = xlNone
        .TintAndShade = 0
        .PatternTintAndShade = 0
    End With
    Range("Q8").Select
    ActiveCell.FormulaR1C1 = "=RC[-8]"
    Range("Q11").Select
    ActiveCell.FormulaR1C1 = "=RC[-8]"
    Columns("Z:Z").Select
    Selection.EntireColumn.Hidden = True
    Range("Q17:Q117").Select
    Selection.Replace What:="Y", Replacement:="Z", LookAt:=xlPart, _
        SearchOrder:=xlByRows, MatchCase:=True, SearchFormat:=False, _
        ReplaceFormat:=False
    Range("R17").Select
    ActiveSheet.Next.Select
    ActiveSheet.Previous.Select
    Range("R17:R92").Select
    Selection.Replace What:="I", Replacement:="J", LookAt:=xlPart, _
        SearchOrder:=xlByRows, MatchCase:=True, SearchFormat:=False, _
        ReplaceFormat:=False
    ActiveSheet.Next.Select
    Columns("E:Q").Select
    Selection.EntireColumn.Hidden = False
    Columns("J:P").Select
    Selection.EntireColumn.Hidden = True
    Columns("H:H").Select
    With Selection.Interior
        .Pattern = xlNone
        .TintAndShade = 0
        .PatternTintAndShade = 0
    End With
    Range("Q8").Select
    ActiveCell.FormulaR1C1 = "=RC[-8]"
    Range("Q11").Select
    ActiveCell.FormulaR1C1 = "=RC[-8]"
    Columns("Z:Z").Select
    Selection.EntireColumn.Hidden = True
    Range("Q16:Q145").Select
    Selection.Replace What:="Y", Replacement:="Z", LookAt:=xlPart, _
        SearchOrder:=xlByRows, MatchCase:=True, SearchFormat:=False, _
        ReplaceFormat:=False
    Range("R16:R145").Select
    Selection.Replace What:="I", Replacement:="J", LookAt:=xlPart, _
        SearchOrder:=xlByRows, MatchCase:=True, SearchFormat:=False, _
        ReplaceFormat:=False
    Sheets("Detail Aust Opers Results").Select
    Range("AM1").Select
    ActiveCell.FormulaR1C1 = "30th November 2013"
    Range("AK1").Select
    ActiveCell.FormulaR1C1 = "5"
    Sheets("Consolidated Profit & Loss").Select
    Range("E35,K35").Select
    Range("K35").Activate
    Selection.Replace What:="H", Replacement:="I", LookAt:=xlPart, _
        SearchOrder:=xlByRows, MatchCase:=True, SearchFormat:=False, _
        ReplaceFormat:=False
    Range("H28,H17,H11").Select
    Range("H11").Activate
    Selection.Replace What:="I", Replacement:="J", LookAt:=xlPart, _
        SearchOrder:=xlByRows, MatchCase:=True, SearchFormat:=False, _
        ReplaceFormat:=False
    Range("I11,I17,I28").Select
    Range("I28").Activate
    Selection.Replace What:="!U", Replacement:="!V", LookAt:=xlPart, _
        SearchOrder:=xlByRows, MatchCase:=True, SearchFormat:=False, _
        ReplaceFormat:=False
    Range("N35:N36").Select
    Selection.Replace What:="!F", Replacement:="!G", LookAt:=xlPart, _
        SearchOrder:=xlByRows, MatchCase:=True, SearchFormat:=False, _
        ReplaceFormat:=False
    Range("I60,I66,I77").Select
    Range("I77").Activate
    Selection.Replace What:=":U", Replacement:=":V", LookAt:=xlPart, _
        SearchOrder:=xlByRows, MatchCase:=True, SearchFormat:=False, _
        ReplaceFormat:=False
    Sheets("Australia Summary").Select
    Range("A1:U1").Select
    ActiveCell.FormulaR1C1 = "Month (November 13)"
    Range( _
        "B5,B7,B13,D5,D7,D13,F5,F7,F13,H5,H7,H13,J5,J7,J13,L5,L7,L13,N5,N7,N13,P5,P7,P13,R5,R7,R13" _
        ).Select
    Range("R13").Activate
    ActiveWindow.SmallScroll Down:=6
    Union(Range( _
        "D30,F22,F24,F30,K22,K24,K30,N22,N24,N30,P22,P24,P30,B5,B7,B13,D5,D7,D13,F5,F7,F13,H5,H7,H13,J5,J7,J13,L5,L7,L13,N5" _
        ), Range("N7,N13,P5,P7,P13,R5,R7,R13,B22,B24,B30,D22,D24")).Select
    Range("P30").Activate
    Selection.Replace What:="H", Replacement:="I", LookAt:=xlPart, _
        SearchOrder:=xlByRows, MatchCase:=True, SearchFormat:=False, _
        ReplaceFormat:=False
    Sheets("Australian Summary (1)").Select
    Range("B5,B7,B13").Select
    Range("B13").Activate
    ActiveWindow.SmallScroll Down:=-9
    Range( _
        "B5,B7,B13,D5,D7,D13,F5,F7,F13,H5,H7,H13,J5,J7,J13,L5,L7,L13,N5,N7,N13,P5:P6,P7,P13,R5,R7,R13,B22,B24" _
        ).Select
    Range("B24").Activate
    ActiveWindow.SmallScroll Down:=3
    Union(Range( _
        "D30,F22,F24,F30,K22,K24,K30,N22,N24,N30,P22,P24,P30,B5,B7,B13,D5,D7,D13,F5,F7,F13,H5,H7,H13,J5,J7,J13,L5,L7,L13,N5" _
        ), Range("N7,N13,P5:P6,P7,P13,R5,R7,R13,B22,B24,B30,D22,D24")).Select
    Range("P30").Activate
    Selection.Replace What:="H", Replacement:="I", LookAt:=xlPart, _
        SearchOrder:=xlByRows, MatchCase:=True, SearchFormat:=False, _
        ReplaceFormat:=False
    ActiveSheet.Next.Select
    ActiveSheet.Next.Select
    Range("E8:E9,E12,E17:E20").Select
    Range("E17").Activate
    ActiveWindow.SmallScroll Down:=9
    Selection.Replace What:="H", Replacement:="I", LookAt:=xlPart, _
        SearchOrder:=xlByRows, MatchCase:=True, SearchFormat:=False, _
        ReplaceFormat:=False