Como eliminar celdas vacías en un combobox

Necesito me ayuden con un código que permita eliminar las celdas vacías que lee un combobox en el cual se tiene que cargar una lista, en excel se ve así:

1

Vacío

Vacío

Vacío

2

Pero en el combobox se debe visualizar la lista así:

1

2

Yo tengo el siguiente código:

Private Sub Cbo_codigo_Enter()
Dim Fila As Long
Dim Final As Long
Dim Lista As Long

Do While Me.Cbo_codigo.ListCount > 0
Me.Cbo_codigo.RemoveItem 0
Loop

Final = nReg(Hoja3, 2, 4) - 1
For Fila = 2 To Final
Lista = Hoja3.Range("D" & Final).Offset(0, -3).End(xlUp)
Lista = Hoja3.Cells(Fila, 1)
Me.Cbo_codigo.AddItem Lista
Next
End Sub

Pero solo me visualiza en el combox lo siguiente:

1

0

0

0

2