Нужна доработка скрипта копирования строк в зависимости от значений в столбце

Есть скрипт , который смотрит на значение   [u2] и в зависимости от цифры (например 5) копирует 5  строк , указанные строки  ("3:8").

Sub copyspovtorom()
   Dim i&
   Application.ScreenUpdating = False
   For i = 1 To [u2].Value
       Rows("3:8").Copy Cells(Rows.Count, 1).End(xlUp)(2)
   Next
   Application.ScreenUpdating = True
End Sub



Задача  1
Необходимо сделать что бы скрипт, копировал строки  так же в зависимости от цифры указанной не только в одной ячейке , а во всём столбце, причем в СТОЛБЦЕ В ЭТОЙ КОПИРУЕМОЙ СТРОКИ.
Задача  2 Что бы в одном из столбцов  этих раскопированных строк ,  менялось значение

пример , Размер 64  , строка раскопировалась изменилось значение на Размер 66 , а значения этих чисел для размеров  брались из другого столбца , в котором вид данных  46, 48, 50, 52, 54, 56, 58, 60, 62, 64
ТО ЕСТЬ на практике

ввели в столбец U количество вариантов в размерном ряде ( например 10 ) скрипт раскопировал строку на 10 штук

и изменял значения у этих раскопированных строк  в столбце вариант  на Размер 46, Размер 48 Размер 50 и т.д

Вроде по максимуму описал что надо , может что то уточнить необходимо, спрашивайте.

Интересует Цена вопроса и оперативность решения задачи  , Пишите)