Macro que oculte columnas vacías

Te mando mi solución con esta macro:

Sub ejemplo1()
'por luismondelo
For Each celda In Range("b1:h1")
If Application.WorksheetFunction.CountA(Columns(celda.Column)) = 0 Then
celda.EntireColumn.Hidden = True
End If
Next
End Sub

recuerda finalizar

Muchísimas gracias por tu atención amigo, el código funciona muy bien pero quisiera que me evaluara hasta la 25 como pudiera ser? o se a cuando este evaluando B que comience de B12 hasta B25 si esta vacía que oculte y asi haga con las demás hasta la H.. Muchas gracias amigo Bendiciones

Entonces tu macro es esta:

Sub ejemplo1()
'por luismondelo
For Each celda In Range("b12:h12")
If Application.WorksheetFunction.CountA(Range(celda, celda.Offset(13, 0))) = 0 Then
celda.EntireColumn.Hidden = True
End If
Next
End Sub

recuerda finalizar

amigo tengo 2 columnas completamente vacías la D y la F y no me las esta ocultando no se que pasa.. y no me devuelve ningún error. de verdad muchas gracias por tu atención..

Amigo Luis las columnas están algunas con 0 y algunas están vacías " " sera por eso que no las oculta? si es por eso quisiera que las ocultara asi estén en CEro.. de nuevo Gracias Luis bendiciones