Automatic list creating - start at the beginning of new page (macro)

[lastknownuser]

Started very recently with VBA so I'm not an expert but I am familiar with programming in other languages.
I want to create a macro to write a number of names and it would create list (by copying template on the side), and the problem is after row 50, 100,... How can I define that on new page it starts at 51 as first row? I attached the pictures. So the problem is splitting of copied range as can be seen in picture, I don't want that

Any help would be welcome, especially if there are more examples of this kind of template creating for print, thank you
Current short code:

Sub test()

Range("J1:R5").Select
Selection.Copy
Dim ink As Integer
Dim i As Integer
i = 1
ink = InputBox("Enter number of names")
ink2 = ink * 6
For i = 1 To ink2 Step 6
Worksheets("sheet1").Cells(i, 1).Select
ActiveSheet.Paste

Next i

End Sub

 

[lastknownuser]

Tell me in words what you're trying to do. Your copying cells and then saying activesheet.paste

Where on the active sheet are you wanting to paste it.
We should be using sheet names like what is the name of the sheet where you're copying from and what is the name of the sheet you're wanting to paste to.

I figured it out, the problem was "50 < i < 100"...as I said I started with VBA few days ago
I wanted to copy range "J1:R5" to cells (i, 1) where i is defined by inputbox, and the problem was how to avoid splitting range "J1:R5" between two pages

 

[My Aswer Is This]

I figured it out, the problem was "50 < i < 100"...as I said I started with VBA few days ago
I wanted to copy range "J1:R5" to cells (i, 1) where i is defined by inputbox, and the problem was how to avoid splitting range "J1:R5" between two pages

Please show me the new code your using. I'm always curious after I start trying to help.

 

[lastknownuser]

Please show me the new code your using. I'm always curious after I start trying to help.

This one works like I wanted

Public i As Integer

Sub test()

Range("J1:R5").Select
Selection.Copy
Dim ink As Integer
i = 1
ink = InputBox("Enter number of names")
ink2 = ink * 6

Do While i < ink2

If i < 45 Then
Worksheets("sheet1").Cells(i, 1).Select
ActiveSheet.Paste
ElseIf 47 < i And i < 51 Then
i = 51
Worksheets("sheet1").Cells(i, 1).Select
ActiveSheet.Paste
ElseIf 51 < i Then
Worksheets("sheet1").Cells(i, 1).Select
ActiveSheet.Paste
End If

i = i + 6

Loop

End Sub