Printing 10 rows per page - need help finishing macro

Hi!

I have a few workbooks each with around 60-200 rows. I want to print the document but I only want 10 rows per page plus the header row. I don't need to save the different sheets although it would be great if I can just make as many sheets as needed each with 10 rows and the header.

I found this one below but it is only for 1 row per page and I am struggling to fix it for 10 pages! Thanks for your help.

Sub PrintMeOnly()
Application.ScreenUpdating = False
Dim i As Long
Dim i2 As Long
Dim i3 As Long
Dim c As Long
Dim tmpRow1 As Variant
Dim tmpMoreRows(60) As Variant
c = 1
Sheets("Senate + above").Activate
tmpRow1 = Rows("1:1").Value
For i = 1 To 60
c = c + i
tmpMoreRows(i) = Rows(c).Value
c = 1
Next
Sheets("Sheet2").Activate
For i2 = 1 To 7

Range("A1").Value = ""
Range("A1").Value = tmpRow1


Range("A2").Value = ""
Range("A2").Value = tmpMoreRows(i2)


Sheets("Sheet2").PrintOut
Next
Range("A1").Value = ""
Range("A3").Value = ""
Sheets("Senate + above").Activate
Application.ScreenUpdating = True
End Sub

Thanks I appreciate it!