Visual Basic para Aplicaciones - Error en la suma

Buenos días, adjunto os pongo una muestra del error , se trata de lo siguiente:
este código funciona bien hasta que un año no existe o la suma da "0" , he probado varias veces de poner
"IF" suma="" o IF suma ="0" pero no lo resuelvo, ademas busca el año según unos textbox del formulario si falta un año salta los que vienen después,
If prov = (Range("C" & x)) Then
If Año2 = Year(Range("A" & x)) Then
Sumasf2 = Sumasf2 + Range("F" & x)
'Sumasf2 = Sumasf2 + Range("col" & x)
End If
End If
If prov = (Range("C" & x)) Then
If Año3 = Year(Range("A" & x)) Then
Sumasf3 = Sumasf3 + Range("F" & x)
'Sumasf3 = Sumasf3 + Range("col" & x)
End If
End If
os he preparado la muestra de la aplicación para que al darle al botón veáis que ocurre
He probado esta forma y tampoco lo hago bien
If Not Año2 = Year(Range("A" & x)) Is Nothing Then
Gracias por vuestra ayuda

• Error-en-la-suma.zip(121,1 KB)

Ya está resuelto, he cambiado la formula que llena el formulario en vez de dejarlo así
If Not Sumasf(1) = 0 Then
Controls("F1") = CDbl(Sumasf(1))
If Not Sumasf2 = 0 Then
Controls("F2") = CDbl(Sumasf2)

las he puesto justo debajo de la suma, y funciona perfectamente

If Año20 = Year(Range("A" & x)) Then
Sumasf20 = Sumasf20 + Range("F" & x)
Controls("F20") = CDbl(Sumasf20)
End If
End If

Saludos