number each printed copy

I need to number each printed page of my document, but counting by 4, ie copy 1=page 1, copy 2=page 5, copy 3=page 9 and so on.

I used this macro to number a different document, can I edit this to count by four?? Or is there something else I can do? I've never really worked with macros before if you can't already tell. Thanks!!!

Sub PrintCopies_ActiveSheet_1()
    Dim CopiesCount As Long
    Dim CopieNumber As Long
    CopiesCount = Application.InputBox("How many copies do you want", Type:=1)

    For CopieNumber = 1 To CopiesCount
        With ActiveSheet
            
            .Range("E1").Value = CopieNumber

            'Print the sheet
            .PrintOut
        End With
    Next CopieNumber
End Sub