2 Combobox en excel

[registros_r2]

Tengo un formulario con dos combobox,
El primero coge los datos desde una celda hasta que no hay mas y el seguno, hace lo mismo que el primero pero como en las celdas hay formulas tambien me las celdas con valor 0 y yo solo quiero que salgan en el combobox 2 las que tiene valor distinto de 0. os dejo mi macro para ver si me podeis ayudar.

muchas gracias


Private Sub ComboBox1_Change()
Range("A20").Select
ActiveCell.FormulaR1C1 = ComboBox1
Range("A34").Select
ActiveCell.FormulaR1C1 = ComboBox1
End Sub

Private Sub ComboBox2_Change()
Range("B34").Select
ActiveCell.FormulaR1C1 = ComboBox2
End Sub

Private Sub UserForm_Initialize()
Dim x As Variant
Dim y As Variant
Sheets("HOJA1").Select
Range("A1").Select
x = ActiveCell.Address
Do While Not IsEmpty(ActiveCell)
ActiveCell.Offset(1, 0).Activate
Loop
y = ActiveCell.Offset(-1, 0).Address
ComboBox1.RowSource = x & ":" & y

Sheets("HOJA1").Select
Range("B20").Select
x = ActiveCell.Address
Do While Not IsEmpty(ActiveCell)
ActiveCell.Offset(1, 0).Activate
Loop
y = ActiveCell.Offset(-1, 0).Address
ComboBox2.RowSource = x & ":" & y
End Sub