Macro visual basic wycinanie okręgu.

Witam, otóż mój problem polega na tym, iż po wciśnięciu przycisku włączającego makro tworzą mi się 2 walce jako dwie oddzielne części i teraz mam pytanie jak zrobić, aby w jednym walcu wycinany był automatycznie otwór o określonej średnicy wpisanej przez użytkownika i tak samo w drugim ale o innej średnicy ? Przesyłam kawałek kodu, ale w obydwu tworzą się takie same otwory. Pozdrawiam.