Looking for Macro to insert rows

[AV_Geek]

I'm looking for a macro in insert rows. I'm trying to insert the following:

1. One row above Row 1
2. Three rows below Row 1
3. Three Rows below Row 51.

I tried this, but SOMETIMES, not always, it just inserts 5 rows above Row 1

Sub MarchInsertRows1()
Worksheets("Weekdays").Activate
    Rows("1:1").Select
    Rows("2:4").Select
    Rows("52:54").Select
    Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
Worksheets("Buttons").Activate
End Sub

So then I broke it down into 3 Macros, thinking that it was getting confused with going above Row 1 and then again above Row 2

Sub MarchInsertRows1()
Worksheets("Weekdays").Activate
    Rows("1:1").Select
    Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
Worksheets("Buttons").Activate
End Sub
Sub MarchInsertRows35()
Worksheets("Weekdays").Activate
    Rows("3:5").Select
    Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
Worksheets("Buttons").Activate
End Sub
Sub MarchInsertRows5658()
Worksheets("Weekdays").Activate
    Rows("56:58").Select
    Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
Worksheets("Buttons").Activate
End Sub

Sub MarchInsertRows()
Call MarchInsertRows1
Call MarchInsertRows35
CallMarchInsertRows5658
End Sub

The idea behind this was to let it finish inserting the first group before inserting the second, but it didn't work. It still works one way sometimes and the other way others.

 

[rollis13]

You can use one of these, both work:

Sub MarchInsertRowsAll_1()
    Worksheets("Weekdays").Activate
    Rows("52:54").Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
    Rows("2:4").Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
    Rows("1:1").Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
    Worksheets("Buttons").Activate
End Sub

Sub MarchInsertRowsAll_2()
    Worksheets("Weekdays").Activate
    Range("1:1,2:4,52:54").Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
    Worksheets("Buttons").Activate
End Sub

Also note the different order of row insertment.

 

[AV_Geek]

Hey Rollis13 - the second one was great!!!

 

[rollis13]

Thanks for the positive feedback, glad having been of some help.