Dividir valores zerados? Como assim?
Se tentar dividir por 0 vai dar sempre erro.

Por favor explique melhor...

Todo editor/compilador de programação segue estritamente as regras/leis matemáticas, assim toda divisão por zero é proibida; gerando assim erro.
Se está em um loop de divisão e porventura algum dos divisores tende a ser Zero ou mesmo estar sem preenchimento, e necessário tratar essa operação;

Por exemplo: supondo que está dividindo celula A / celula b, deve ser algo =/- assim: se celula b > 0 then a/b else 0

estou tentando aplicar a regra abaixo
x = Range("a1").Value / Range("b1").Value

só que a1 e b1 será zero (0).

e gera erro.

na formula normal deu certo colocando SEERRO(a1/b1;0)
o resultado fica 0.

quero implementar a divisão em vba, mas não estou conseguindo

Acredito que isso resolva:

Lançando resultado em "C1" .

Sub Dividir_por_0()
On Error Resume Next
x = WorksheetFunction.IfError(Plan1.Range("A1").Value / Plan1.Range("B1").Value, "0")
If [a1].Value = 0 Or [b1].Value = 0 Then
[C1] = 0
Else
[C1] = x
End If
End Sub

Não sei qual o seu objetivo mas ATENÇÃO! Divisão por 0 não existe. O que esse código faz é "forçar" uma divisão trazendo o resultado 0.

Abrç!

de certa forma dividir por zero é considerado dividir por infinitas partes ,
mas isso apenas pq os grandes matemáticos não chegaram a uma conclusão

https://www.youtube.com/watch?v=F9_x95jxDAo

eu tbm estou desenvolvendo uma aplicação que pode indevidamente entrar divisão por zero
e como não é uma aplicação comercial eu tbm tive que definir um valor padrão

Outra possibilidade; experimente:

If Range("b1").Value = 0 Or IsNull(Range("B1").Value) Then
    x = 0
Else
x = Range("a1").Value / Range("b1").Value
End If