Combobox Init

also mit folgendem Code weise ich meiner Combobox Werte zu :
With Abfragefenster
.ComboBox1.RowSource = "Startseite!$A$157:$A$" & Trim(Str(Worksheets("Startseite").[a65536].End(xlUp).Row))
.ComboBox1.ListIndex = 0
.ComboBox1.SetFocus
.ComboBox1.Style = fmStyleDropDownList
End With

jetzt habe ich das Problem das End(xlUp) nur dann die letzte Zelle ermittelt wenn diese eingeblendet ist, aus Gründen der Übersichtlichkeit würde ich aber gerne die Zeilen ausblenden und trotzdem die letzte beschriebene Zelle finden.
Weis da jemand einen guten Rat ?

Gruß Petra