Combobox - AddItem med For Next

Hej

Jeg har en Combobox hvor jeg gerne vil have alle værdierne fra område B20 til B-end indsat som værdier i Comboboxen.

Da det ikke er alle celler i området der er udfyldt fra starten skal funktionen kun AddItem hvis celleværdien er forskellig fra "".

Jeg har forsøgt med nedenstående men det virker ikke. Er der nogle der kan komme med en løsning?

Private Sub CbbAnlaeg_Click()

Dim c As Range

For Each c In Range("B20", Range("B20").End(xlDown)).Cells

    If Not ActiveCell.Value = "" Then
        cbbAnlaeg.AddItem ActiveCell.Value
    End If
   
Next


End Sub