Macro combobox

Hola:
Me gustaría que me ayudaran sobre esta macro,
Encontré en este foro una macro para combobox que busca en la columna hasta que encuentra el espacio en blanco y ya no continua. He realizado un formulario que en la siguiente columna, depende de lo que haya en el primer combobox, se rellenan unos datos en la siguiente, y utilizo la misma macro para que el segundo combobox se rellene, el caso es que cuando saca algún valor 0 también lo pone en el combobox 2 y no quiero que salga, solo quiero que salgan los valores superiores a 0 y no se como se hace.
Les pongo mi macro para ver si me pueden ayudar. Espero haberme explicado porque es un poco difícil de decir.
Gracias por adelantado
Private Sub ComboBox1_Change()
Range("CI18").Select
ActiveCell.FormulaR1C1 = ComboBox1
Range("CI34").Select
ActiveCell.FormulaR1C1 = ComboBox1
End Sub
Private Sub ComboBox2_Change()
Range("CJ34").Select
ActiveCell.FormulaR1C1 = ComboBox1
End Sub
Private Sub UserForm_Initialize()
Dim x As Variant
Dim y As Variant
Sheets("presupuesto").Select
Range("CI2").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("presupuesto").Select
Range("CJ18").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