Esta bien que sea "novato", pero, si tanta es tu necesidad de usar macros, pues, al menos deberias leer mas sobre VBA, y sobretodo, esforzarte por entender.
Una cosa es pedir ayuda, y otra muy diferente esperar que a uno le hagan todo el trabajo.
de todos modos ya que SIMPLEMENTE era cuestion de aumentar un 3 lineas a la macro, te la dejo:
Sub para_el_que_no_lee()
Dim celda As Range
Dim total
total = 1
For Each celda In ActiveSheet.Range("b1:b15")
If celda <> 0 Or celda <> "" Then
total = total * celda
End If
Next
MsgBox total
End Sub
Abraham
