Макрос прямоугольника можно повторить 3 раза

Question

Я хотел бы спросить, что приведенный ниже код создает форму прямоугольника с текстом «КОНФИДЕНЦИАЛЬНО».Пожалуйста, помогите мне, чтобы этот прямоугольник был повторен три раза в формате Legal страницы Paper, он также равномерно распределен по вертикали.Для образца я вставляю изображение.На этом изображении показаны три квитанции, где прямоугольник установлен соответственно.

Sub ShapeConfidential()

    Dim shpConf As shape

    On Error GoTo CreateConf

        Set shpConf = ActiveSheet.Shapes("CONFIDENTIAL")

        'GoTo PrnPrv
        Exit Sub

CreateConf:
        Set shpConf = ActiveSheet.Shapes.AddShape(msoShapeRectangle, 70, 130, 324, 144)

        shpConf.Name = "CONFIDENTIAL"

        With shpConf.TextFrame
            .Characters.Text = "CONFIDENTIAL"
            .Characters.Font.Name = "Arial Black"
            .Characters.Font.Size = 36
            .Characters.Font.Color = RGB(251, 0, 0)
            .Characters.Font.Bold = False
            .HorizontalAlignment = xlHAlignCenter
            .VerticalAlignment = xlVAlignCenter
        End With

        shpConf.Rotation = -30
        shpConf.Fill.Visible = msoFalse
        shpConf.Line.Visible = msoFalse
        shpConf.Fill.Transparency = 0.5

End Sub