Schleife zum Füllen einer Combobox

Private Sub Worksheet_Activate()
ComboBox1.Value = Range("A48")
Dim az                                                ' Variable deklarieren
ComboBox1.Clear                                       ' ComboBox leeren
Cells(48, 1).Select                                   ' Cursor in Zelle A10
az = ActiveCell.Row                                   ' Zeile der aktiven Zelle
Do                                                    ' Beginn der Schleife
ComboBox1.AddItem Cells(az, 1)                        ' Eintrag hinzufügen
az = az + 1                                           ' aktive Zeile um 1 erhöhen
If az = 251 Then Exit Do                              ' wenn > 250 dann raus aus
Loop                                                  ' Schleife
End Sub

Dieser Code füllt mir die Box! Ich möchte aberreichten, dass nicht 250 Zeilen in die Combobox eingelesen werden sondern, die Schleife zum Füllen einer Combobox soll solange Daten einlesen, bis die nächste Zelle in der Spalte A leer ist!
Wie kann ich das erreichen! Ich kann den Code alleine nicht umbauen!
mfg
Florian