Select method class range failed

Hi,
I have created a spreadsheet that is 38mb and needed to size it down. I recorded the following macro to do this. This essentialy jut copies the top line of the relevant columns on each page and then copies the formulas down, calculates, and then pastes just the values of these calculations, thereby reducing the sheet to a third of its size. The macro works if I run it from the macro option on the toolbar, but when I assign it to a command button I keep getting ' select method class range failed'.
Can anyone help???

Sheets("KPI Data Validation").Select
    Rows("4:4").Select
    Selection.Copy
    Rows("5:12000").Select
    ActiveSheet.Paste
    Application.CutCopyMode = False
    Calculate    
    
    Rows("5:12000").Select
    Selection.Copy
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
     
     
     Sheets("Maintenance Calc Sheet").Select
    Range("c3:D3").Select
    Selection.Copy
    Range("c4:d67").Select
    ActiveSheet.Paste
    Application.CutCopyMode = False
    Range("M3:R3").Select
    Selection.Copy
    Range("M4:R12000").Select
    ActiveSheet.Paste
    Application.CutCopyMode = False
    Range("t3:y3").Select
    Selection.Copy
    Range("t4:y67").Select
    ActiveSheet.Paste
    Application.CutCopyMode = False
    Calculate
    
    Range("C4:D67").Select
    Selection.Copy
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    ActiveWindow.ScrollColumn = 2
    Range("M4:R12000").Select
    Application.CutCopyMode = False
    Selection.Copy
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
        Range("T4:Y67").Select
    Application.CutCopyMode = False
    Selection.Copy
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
        
        
         Sheets("Repair Calc Sheet").Select
    Range("c3:D3").Select
    Selection.Copy
    Range("c4:d67").Select
    ActiveSheet.Paste
    Application.CutCopyMode = False
    Range("M3:R3").Select
    Selection.Copy
    Range("M4:R12000").Select
    ActiveSheet.Paste
    Application.CutCopyMode = False
    Range("t3:y3").Select
    Selection.Copy
    Range("t4:y67").Select
    ActiveSheet.Paste
    Application.CutCopyMode = False
    Calculate
    
    Range("C4:D67").Select
    Selection.Copy
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    ActiveWindow.ScrollColumn = 2
    Range("M4:R12000").Select
    Application.CutCopyMode = False
    Selection.Copy
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
        Range("T4:Y67").Select
    Application.CutCopyMode = False
    Selection.Copy
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
        
           Sheets("Financier Calc Sheet").Select
    Range("c3:D3").Select
    Selection.Copy
    Range("c4:d67").Select
    ActiveSheet.Paste
    Application.CutCopyMode = False
    Range("M3:R3").Select
    Selection.Copy
    Range("M4:R12000").Select
    ActiveSheet.Paste
    Application.CutCopyMode = False
    Range("t3:y3").Select
    Selection.Copy
    Range("t4:y67").Select
    ActiveSheet.Paste
    Application.CutCopyMode = False
    Calculate
    
    Range("C4:D67").Select
    Selection.Copy
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    ActiveWindow.ScrollColumn = 2
    Range("M4:R12000").Select
    Application.CutCopyMode = False
    Selection.Copy
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
       Range("T4:Y67").Select
    Application.CutCopyMode = False
    Selection.Copy
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
        
           Sheets("Vandalism Calc Sheet").Select
    Range("c3:D3").Select
    Selection.Copy
    Range("c4:d67").Select
    ActiveSheet.Paste
    Application.CutCopyMode = False
    Range("M3:R3").Select
    Selection.Copy
    Range("M4:R12000").Select
    ActiveSheet.Paste
    Application.CutCopyMode = False
    Range("t3:y3").Select
    Selection.Copy
    Range("t4:y67").Select
    ActiveSheet.Paste
    Application.CutCopyMode = False
    Calculate
    
    Range("C4:D67").Select
    Selection.Copy
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    ActiveWindow.ScrollColumn = 2
    Range("M4:R12000").Select
    Application.CutCopyMode = False
    Selection.Copy
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
        Range("T4:Y67").Select
    Application.CutCopyMode = False
    Selection.Copy
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
End Sub
Sub Macro15()
'
' Macro15 Macro
' Macro recorded 30/10/2007 by Administrator
'

'
    Sheets("Maintenance Calc Sheet").Select
    Range("c3:D3").Select
    Selection.Copy
    Range("c4:d67").Select
    ActiveSheet.Paste
    Application.CutCopyMode = False
    Range("M3:R3").Select
    Selection.Copy
    Range("M4:R12000").Select
    ActiveSheet.Paste
    Application.CutCopyMode = False
    Range("c3:D3").Select
    Selection.Copy
    Range("t4:y67").Select
    ActiveSheet.Paste
    Application.CutCopyMode = False
    Calculate
    
    Sheets("Maintenance Calc Sheet").Select
    Range("C4:D67").Select
    Selection.Copy
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    ActiveWindow.ScrollColumn = 2
    Range("M4:R12000").Select
    Application.CutCopyMode = False
    Selection.Copy
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
        Range("T4:Y67").Select
    Application.CutCopyMode = False
    Selection.Copy
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
End Sub