Langsom VBA-kode i Excel

Nedenstående kode kører MEGET langsomt, når den aktiveres vha. en knap. Kan det mon speedes op?

Sub Indsæt_11_rækker()
'
'
Selection.EntireRow.Insert
Selection.EntireRow.Insert
Selection.EntireRow.Insert
Selection.EntireRow.Insert
Selection.EntireRow.Insert
Selection.EntireRow.Insert
Selection.EntireRow.Insert
Selection.EntireRow.Insert
Selection.EntireRow.Insert
Selection.EntireRow.Insert
Selection.EntireRow.Insert
Selection.End(xlToLeft).Select
Sheets("ADM").Visible = True
Sheets("ADM").Select
Range("A52:Y62").Select
Selection.Copy
Sheets("Periodeoplæg").Select
ActiveSheet.Paste
Application.CutCopyMode = False
Sheets("ADM").Visible = False
End Sub