Min makro virker ikke i VBA

Jeg har optaget en makro der virker helt fint når jeg kører den. Samtidigt har jeg en makro der kører når jeg klikker på en knap i regnearket. Jeg ville gerne kombinere de to makroer, således at min gem knab først udførte den nye makro, efterfulgt af den gamle.
Mit problem er jeg kan ikke få det til at virke når jeg forsøger at kombinere. De to makroer følger:

Den gamle makro:
Private Sub CommandButton1_Click()


Cells.Select
    Selection.Copy
    Workbooks.Add
    ActiveSheet.Paste
    ActiveWorkbook.SaveAs "P:\Kalkulation_døre\Tilbud\" & Worksheets("Ark1").Range("F2").Text & " " & Worksheets("Ark1").Range("H2").Text & ".xls"
    MsgBox "Døren er nu gemt"

   
End Sub

Den nye makro:
Sheets("Exel til C5").Select
    Cells.Select
    Range("A25").Activate
    Selection.Copy
    Workbooks.Open Filename:="P:\Kalkulation_døre\C5\Opdatering C5.xls"
    Range("A1").Select
    ActiveSheet.Paste
    Range("A1").Select
    Application.CutCopyMode = False
    ActiveWorkbook.Save
    ActiveWindow.Close
    ActiveWindow.SmallScroll Down:=-48
    Range("A1").Select
    Sheets("MH").Select
    ActiveWindow.SmallScroll Down:=-72
    Range("A1:H55").Select
    Selection.Copy
    ChDir "P:\Kalkulation_døre\Tilbud"
    Workbooks.Add
    ActiveSheet.Paste
    Application.CutCopyMode = False
    ActiveWorkbook.SaveAs Filename:="P:\Kalkulation_døre\Tilbud\test1.xls", _
        FileFormat:=xlNormal, Password:="", WriteResPassword:="", _
        ReadOnlyRecommended:=False, CreateBackup:=False
    ActiveWindow.Close
    ActiveWindow.SmallScroll Down:=-45
    Range("A1:B1").Select
    ActiveWindow.SmallScroll Down:=24
End Sub

Når jeg prøver at sætte dem sammen har jeg lavet følgende:

Private Sub CommandButton1_Click()
Sheets("Exel til C5").Select
    Cells.Select
    Selection.Copy
    Workbooks.Open Filename:="P:\Kalkulation_døre\C5\Opdatering C5.xls"
    Range("A1").Select
    ActiveSheet.Paste
    Range("A1").Select
    Application.CutCopyMode = False
    ActiveWorkbook.Save
    ActiveWindow.Close
    Sheets("MH").Select

Cells.Select
    Selection.Copy
    Workbooks.Add
    ActiveSheet.Paste
    ActiveWorkbook.SaveAs "P:\Kalkulation_døre\Tilbud\" & Worksheets("Ark1").Range("F2").Text & " " & Worksheets("Ark1").Range("H2").Text & ".xls"
    MsgBox "Døren er nu gemt"

   
End Sub

Jeg kan ikke forstå hvor det er jeg laver en fejl

Håber på hjælp som sædvanlig
MVH
UPS