Error de Código VBA de impresión si valor de copias es 0

Me gustaría hacer un botón que al pulsarlo imprima tantas copias como el valor de la celda P1 del área A1:C10, el área D1:F10 tantas veces como el valor de P2 y el área G1:I10 tantas veces como el valor P3

El código sería:

Private Sub CommandButton1_Click()
Dim copias As Integer
copias1 = Range("P1").Value
ActiveSheet.PageSetup.PrintArea = "$A$1:$C$10"
ActiveWindow.SelectedSheets.PrintOut Copies:=copias1, Collate:=True

copias2 = Range("P2").Value
ActiveSheet.PageSetup.PrintArea = "$D$1:$F$10"
ActiveWindow.SelectedSheets.PrintOut Copies:=copias2, Collate:=True

copias3 = Range("P3").Value
ActiveSheet.PageSetup.PrintArea = "$g$1:$I$10"
ActiveWindow.SelectedSheets.PrintOut Copies:=copias1, Collate:=True
End Sub

Ahora bien, el problema que me encuentro es que si dejo uno de los valores en 0, me sale un error diciendo que el valor debe estar entre 1 y 32767. Pero yo quiero que si uno de los valores es 0, no me imprima ese área.

¿Alguna idea?