Macros en Excel, no reconoce los campos con valor cero

Tengo una macro para inventarios que maneja ocho artículos, en cantidades enteras y decimales. He integrado la macro para que me lleve los ocho campos a otra hoja y lo realiza, pero cuando el inventario no se mueve, y capturo "0" la macro no avanza porque entiende que el campo esta vacío o en blanco. ¿Cómo le hago para que la macro reconozca el valor de cero y así me lo mande a la hoja que le he dictado? La macro que tengo es la siguiente:
Sub Inventarios()
'Aqui se declaran las variables a usarse
Dim FECHA As Date
Dim AGUA, ARMORALL, CERA, POLISH, SHAMPOO, DESENGRASANTE, DIESEL, GASOLINA, AROMAS As Currency
'Revisamos que los campos esten llenos, sino se envia un msj y finaliza la macro
If Range("f9").Value = Empty Or Range("f10").Value = Empty Or Range("f11").Value = Empty Or Range("f12").Value = Empty Or Range("f13").Value = Empty Or Range("f14").Value = Empty Or Range("f15").Value = Empty Or Range("f16").Value = Empty Or Range("f17").Value = Empty Or Range("f18").Value = Empty Then
MsgBox prompt:="Estas dejando campos vacios", Buttons:=vbOKOnly, Title:="Llena todos los campos"
Exit Sub
End If
'Le damos valores a las variables
FECHA = Range("f9").Value
AGUA = Range("f10").Value
ARMORALL = Range("f11").Value
CERA = Range("f12").Value
POLISH = Range("f13").Value
SHAMPOO = Range("f14").Value
DESENGRASANTE = Range("f15").Value
DIESEL = Range("f16").Value
GASOLINA = Range("f17").Value
AROMAS = Range("f18").Value
' aqui comienza la rutina de control
Sheets("Consumo de Inventarios").Select
Range("b21").Select
Do While ActiveCell <> Empty
ActiveCell.Offset(1, 0).Select
Loop
ActiveCell.Value = FECHA
ActiveCell.Offset(0, 1).Value = AGUA
ActiveCell.Offset(0, 2).Value = ARMORALL
ActiveCell.Offset(0, 3).Value = CERA
ActiveCell.Offset(0, 4).Value = POLISH
ActiveCell.Offset(0, 5).Value = SHAMPOO
ActiveCell.Offset(0, 6).Value = DESENGRASANTE
ActiveCell.Offset(0, 7).Value = DIESEL
ActiveCell.Offset(0, 8).Value = GASOLINA
ActiveCell.Offset(0, 9).Value = AROMAS