Спасибо тебе nilem! то что нужно!

форумчане! неужели чем точнее вопрос, тем сложнее ответить?)

ячейки желтым я заполняю. столбцы В и С типа дублируют друг друга. хочу макрос который бы сделал 10 строк(по количеству коробок) и в с5, с6, с7...с14 было бы по 500. смотрите мое первое сообщение и тот макрос. но надо сделать цикл ибо городов может быть сотни

Sub tt  
просто заменяет первые сколькото строк на то-то  
 
Sub io 1  
просто непонятно какоето действие при условии...  
Sub io 2 не работает  
 
как связать объект над которым будет совершаться действие с условием??

Нужна программа которая циклически проверяет строки при наличии в одной ячейке строки определенного условия, копирует эту строку, вносит в нее изменения и в новую тоже.  
 
проще говоря есть список с числами(например в столбцах 45, 70, 24...). где числа больше определенного числа (например 30) он, дублирует строки, а число распределяет на несколько строк( например 30, 15, 30, 30, 10, 24...) То есть 45 разбил на 30 и 15, 70 на 30, 30 и 10, 24 оставил..  
Извините что так разжевываю, надеюсь что понятно ..  
 
единственно что придумал: делать для каждой строки -  If Range("D5") > 1 Then  
  Range("A5:F5").Select  
   Selection.Copy  
   Range("A6:F6").Select  
   Selection.Insert Shift:=xlDown  
   Range("C6").Select  
   ActiveCell.FormulaR1C1 = Range("C5") - Range("E6")  
   Range("C5").Select  
   ActiveCell.FormulaR1C1 = Range("G1")  
   End If  
         
   If Range("D6") > 1 Then  
  Range("A6:F6").Select  
   Selection.Copy  
   Range("A7:F7").Select  
   Selection.Insert Shift:=xlDown  
   Range("C7").Select  
   ActiveCell.FormulaR1C1 = Range("C6") - Range("E7")  
   Range("C6").Select  
   ActiveCell.FormulaR1C1 = Range("G1")  
   End If  
.....  
 
но это глупо