for red=1 to zadnjiRed
  if ... neki uvjet
   cells(red,kolona).insert :=xlDown
   'broj redova se proporcionalno uveca broju inserta
   'zadnjiRed vise nije onaj sa pocetka
  next
next red