Help with mail merge into Word

Hello,

I need help mail merging my spread sheet. I can get a standard merge to work but for only 1 sheet when sometimes I need 6, 1, 7, copies, Etc.
My sample spreadsheet is attached
Can someone help? Is this a function of Excel or Word?
I am new at data mergeing I could use some help with the formula.

Thank you in advance!

Thank you for your quick response!
I just thought there was an automated way of doing my request. I only attached a sample Excel sheet, my actual sheet is for almost 500 tenants and to select the number of of pages I need to print is a daunting task. To copy and add the data multiple times causes my unique conditional formatted codes to display in red when there are duplicates (this keeps from giving the same lock code to multiple properties)
Like I said sometimes I only need 1 sheet, or 12 sheets with the required merge data. Perhaps a VBS script would be an answer.

Thank you again!

Your Excel spreadsheet is ONLY the Database. The control and features for the mail merge are done in Word. Once it's all set up, in Word mail merge you can choose to print all, just those with a certain address, those with a certain title or whatever you want but this is ALL done in Word not Excel ... remember the spreadsheet is just the Database, the Mail Merge element is done in Word and controlled by Word

This is what I was looking for to print out X number of letters to hand people their lock codes in word.

Sub Macro1()
Sheets("sheet1").Select
Rows("2:2").Select
Selection.Copy
Sheets("Sheet2").Select
Rows("1:1").Select
ActiveSheet.Paste
Sheets("Sheet1").Select
Cells(3, 1).Activate
Dim qty As Integer
Do Until ActiveCell.Value = "STOP"
Cells(ActiveCell.Row, 1).Activate
If IsNumeric(ActiveCell.Value) Then
qty = ActiveCell.Value
Else
qty = 0
End If
Rows(ActiveCell.Row).Select
Selection.Copy
Sheets("Sheet2").Select
Do While qty > 0
ActiveCell.Offset(1, 0).Select
Selection.Insert Shift:=xlDown
Rows(ActiveCell.Row).Select
Selection.Copy
qty = qty - 1
Loop
Sheets("Sheet1").Select
ActiveCell.Offset(1, 0).Select
Loop
'
End Sub