microsoft visual basic pre excell

mam tabulku v exceli a na zaklade podmienku potrebujem povkladat v cykle dalsie riadky medzi existujuce . . .
For i = 7 To posledny
If Range("D" & i).Value <> prva Then
Range("D" & pocet).Select
Selection.EntireRow.Insert
Rows(pocet).Select
Selection.Font.Bold = True
prva = Range("D" & pocet + 1).Value
End If
posledny = PoslRiadok(Range("A6:A50"))
Next i

problem je v om, ze FOR na zaciatku si niekde ulozi hodnotu posledny a dalej na nu nebere ohlad, kedze ja pridam riadok tak sa mi aj hodnota posledny zvecsuje, ale for bere to co mal na zaciatku . . . ako z tohto von? cyklus while som nenasiel . . . .

Změna předmětu, původně: visual microsoft excell (LaKr) (Kráťa)