Макрос на дублирование строк в Excel с заменой некоторых значений - VBA

Формулировка задачи:

Всем привет! Есть изначальная табличка (она в приложении лист "исходник"); Необходимо чтобы строки продублировались вниз с заменой значений в колонке "Рынок" (что должно получиться на вкладке "пример"). кол-во строк всегда разное; кол-во дублирований всегда одинаковое (в примере 2 раза); замена всегда стандартная. Прорыла весь интернет -продублировать строки получилось, а вот с частичной заменой колонок -нет. Надеюсь описание понятное. Заранее спасибо всем за помощь!

Решение задачи: «Макрос на дублирование строк в Excel с заменой некоторых значений»

textual
                            Листинг программы 
                        

                            Sub Ya()
Dim n&
  n = Cells(Rows.Count, 1).End(xlUp).Row
  Range("2:" & n).Copy Cells(n + 1, 1)
  Range("B" & n + 1 & ":B" & 2 * n - 1) = "EVN"
  Range("2:" & n).Copy Cells(2 * n, 1)
  Range("B" & 2 * n & ":B" & 3 * n - 2) = "ALM"
End Sub
                        