Печать нескольких областей печати с использованием макроса при нажатии кнопки «Нажмите кнопку» и указание значения c в заданных ячейках

Question

Я хочу напечатать

/range("A1:I20") when "J1" = 1
/range("A21:I40") when "J21" = 2

И я хочу, чтобы он выполнялся нажатием кнопки Click.

Вот моя программа на данный момент.

Sub printsomecells()
  Range("A1:I20").PrintOut
  Range("A21:I40").PrintOut
End Sub