Letzter Eintrag in Listbox anzeigen

ich fülle die RowSource einer Listbox mit folgendem Code:

' 'RowSource für Listbox wird gefüllt
'
For Each c In Sheets("Daten").Range("K12:K200")
If c.Value = "" Then

c.Value = such
'Set eintr = c.Offset(1, 0)
' eintr.Value = such

Set eintr2 = c.Offset(0, 1) 'Sheets("Daten").Range("L11").End(xlDown).Offset(1, 0)
eintr2.Value = txtName.Value

Set eintr2 = c.Offset(0, 2) 'Sheets("Daten").Range("M11").End(xlDown).Offset(1, 0)
eintr2.Value = txtStck.Value
Exit For
End If

Next c

Wie kann ich es machen, dass mir bei jedem Schleifendurchlauf immer der letzte Eintrag in der Listbox angezeigt wird?
Kann ich das mit einer Eigenschaft der Listbox einstellen?

Vielen Dank im voraus

Michael