Enkel Makro fryser Excel

Hej Eksperter!
Jeg vil oprette en formular, som ved knap-klik kopierer, opretter nyt ark, indsætter, autokorrigerer kolonnebredde i B+C og fjerner 'myre-stien' på ark1.
Formateringen er B4:B13 Fed og Orange; C4:C13 kolonnebredde 60.
Når jeg kører makroen, fungerer den fint første gang (og nogle gange anden og tredje gang), men så fryser Excel, og jeg kan ikke gennemskue hvorfor. Jeg har forsøgt at deaktivere autokolonnebredden, men det havde ingen effekt. Jeg håber nogle herinde kan hjælpe.
Her er makroen:

Sub KopiTilNy()

    Range("B4:C13").Select
    Selection.Copy
    Sheets.Add After:=ActiveSheet
    Range("B4").Select
    ActiveSheet.Paste
    Columns("B:B").EntireColumn.AutoFit
    Columns("C:C").EntireColumn.AutoFit
    Range("A1").Select
    Sheets("Ark1").Select
    Application.CutCopyMode = False
    Range("A1").Select
End Sub