Print "X" number of pages based on a cell value.

Thank you to the person who responds in advance. My last post was answered very well and very fast I am very appreciative of that. This question is similar, but more complex. I have 27 pages on one sheet. If cell b33 equals 1 then print page 1 copies 3 and print page 2 copies 4, if cell b33 equals 2 print page 1 copies 3 and print from 2 to 3 copies 4, etc....

I know I can create 26 different buttons that specify pages:
Sub Macro18()
ActiveWindow.SelectedSheets.PrintOut From:=1, To:=1, Copies:=3, Collate _
:=True
ActiveWindow.SelectedSheets.PrintOut From:=2, To:=2, Copies:=4, Collate _
:=True
End Sub
Sub Macro19()
ActiveWindow.SelectedSheets.PrintOut From:=1, To:=2, Copies:=3, Collate _
:=True
ActiveWindow.SelectedSheets.PrintOut From:=2, To:=3, Copies:=4, Collate _
:=True
End Sub
Sub Macro20()
ActiveWindow.SelectedSheets.PrintOut From:=1, To:=2, Copies:=3, Collate _
:=True
ActiveWindow.SelectedSheets.PrintOut From:=2, To:=4, Copies:=4, Collate _
:=True
End Sub
Where Macro18() is used when the user confirms that B33 equals 1, or Macro19() when the user confirms B33 equals 2, or Macro20() when the user confirms B33 equals 3, but what I would like is for the macro to determine the value of B33 and print using the rules of the various macros so I can eliminate user error. Maybe there is a conditional argument that says if B33 equals 1 then (insert rules here), if equals 2 (insert rules here)....