My mistake, I used the wrong argument (xlValues)

I think the below does what you need, but would need an example from you to test it:
    With Sheets("Monthly Summary")
        .Unprotect
        .Rows("4:32").Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
        Sheets("New Store Skeleton").Range("A4:AQ32").Copy .Range("A4")
        .Range("A4:AZ32").Replace Sheets("Macros").Range("B6"), Sheets("Macros").Range("B9"), xlPart
        .Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
    End With
Please do look at the code, and see how the changes I've made work. There are two main things I've done to improve the readability and efficiency of the code - replace "thing.select ... selection.action" with "thing.action" and use of the 'with' construct.

If this doesn't do what you need, upload an example with your next post.