Excel código para imprimir quantidade de cópias de acordo com coluna

[WODIANER]

Boa tarde,

 

desenvolvi um etiqueta e agora preciso arrumar a macro que eu fiz, para imprimir a quantidade de cópias de acordo com a célula D2.

 

MACRO BOTÃO 1CLIQUE

Dim x As Variant
Sub Botão1_Clique()

    x = Val(Range("i2"))
    While Val(x) <= Val(Range("i3"))
    Range("i2").Select
    ActiveCell.FormulaR1C1 = x
    
     ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
    x = x + 1

 Wend
End Sub

 

___________________________________________________________________________________________________________________________________________________

MACRO 1

Sub Macro1()

    ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
End Sub
Sub Macro2()

   Range("D4").Select
   ActiveCell.FormulaR1C1 = "1"
   ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
   
   Range("D4").Select
   ActiveCell.FormulaR1C1 = "2"
   ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
    
   Range("D4").Select
   ActiveCell.FormulaR1C1 = "3"
   ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
    
    
End Sub