Можете помочь сделать рисунок в VBA?

Question

[Василий Хрягин]

Sub Узор() 
Range("A1").Interior.ColorIndex = Rnd() * 8 
Range("B1").Interior.ColorIndex = Rnd() * 8 
Range("C1").Interior.ColorIndex = Rnd() * 8 
Range("D1").Interior.ColorIndex = Rnd() * 8 
Range("A2").Interior.ColorIndex = Rnd() * 8 
Range("B2").Interior.ColorIndex = Rnd() * 8 
Range("C2").Interior.ColorIndex = Rnd() * 8 
Range("D2").Interior.ColorIndex = Rnd() * 8 
 
Range("A1").Copy: Range("H1").PasteSpecial 
Range("B1").Copy: Range("G1").PasteSpecial 
Range("C1").Copy: Range("F1").PasteSpecial 
Range("D1").Copy: Range("E1").PasteSpecial 
 
Range("A2").Copy: Range("H2").PasteSpecial 
Range("B2").Copy: Range("G2").PasteSpecial 
Range("C2").Copy: Range("F2").PasteSpecial 
Range("D2").Copy: Range("E2").PasteSpecial 
 
Range("A1:H2").Copy: Range("A3").PasteSpecial 
Range("A1:H4").Copy: Range("A5").PasteSpecial 
Range("A1:H8").Copy: Range("9").PasteSpecial 
Range("A1").Select

End Sub
1.1. Создайте в имеющемся модуле процедуру Цветок(), продолжив ниже новый текст. Код программы закрашивает стебель цветка в зеленый цвет, а для лепестков генерирует цвета в пределе 56.