Paste a range X number of times based on InputBox Value divided by 4

This is what I'm trying to do:

Sub TicketNum()
	TicketNum = Application.InputBox(Prompt:=
	"Please Enter the Amount of Openings" , Type:=1)
	Range("J2,U2,J20,U20").Value = TicketNum.Value

' If amount entered is less than 4 no need to copy
	If TicketNum.Value > 4 Then
End Sub

Function TicketDivide()

' If amount entered is greater than 4 I need to divide by 4 to see how many pages to make

	TicketDivide = (TicketNum.Value) / 4
End Function

Sub MorePages()

' For each whole value returned by the TicketDivide Function copy the range and paste to the next 
' empty page.
	
	Range("A1:U35").Select
	Selection.Copy

' Here is where I'm drawing a blank because I need to paste the Selection x number of times 
' and I need to count 1 of TicketNum.Value, 2 of TicketNum.Value, 3 of TicketNum.Value, 4 of ' TicketNum.Value, 5 of TicketNum.Value...etc. and place the count into 
' the tickets also. For example: "1 of","2 of", "3 of", "4 of", "5 of"... would be in the cell
' Range("I2,T2,I20,T20,I36") respectively once x amount of ticket pages were pasted.

I have attached a copy of the workbook that I'm creating this for. Any help would be greatly appreciated.