Accéder à la dernière ligne en for

Bonjour,
j'ai une boucle for et je veux accédé a la dernière ligne pour exécute un code sur la derrière ligne ,voila mon code:

For i = 1 To txtnbr.Value - 1
Set MaTable = CurrentDb.OpenRecordset("lister", dbOpenDynaset)
dt = DateAdd(IntervalType, Number, FirstDate)
With MaTable
.AddNew

!Numero_echeance = i
!Date_echeance = dt
!capital = 0
!montant_echeance = Fix(txtinter.Value)
!Interet = Form_Formulaire2!txtinter
!Solde_Capital = txtmont.Value
!Type = Form_Formulaire2!combotype

' For i = 1 To txtnbr.Value
'c'est ici que quelque chose me manque et je suis bloqué

!Numero_echeance = i
!Date_echeance = dt
!capital = txtmont.Value
!montant_echeance = 0
!Interet = Form_Formulaire2!txtinter
!Solde_Capital = 0
!Type = Form_Formulaire2!combotype

Number = Number + 28
.Update
.Requery
End With
Next

merci bien de m'aidée.