Visual Basic - Macro para ocultar filas y columnas con valores de cero en una tabla de excel

Buen día

Agradezco su colaboración con lo siguiente:

Tengo una tabla en excel con N numero de filas y N numero de columnas, requiero por medio de una macro, poder ocultar todas las filas con valores de cero y las columnas con valores de cero.

tengo este código

Sub OcultaR()

Application.ScreenUpdating = False

Range("C3:M5000").Select

Do While Not IsEmpty(ActiveCell)
If ActiveCell < 1 And ActiveCell > -1 And ActiveCell.Offset(0, 1) < 1 And ActiveCell.Offset(0, 1) > -1 And ActiveCell.Offset(0, 2) < 1 And ActiveCell.Offset(0, 2) > -1 Then
ActiveCell.EntireRow.Hidden = True
End If
ActiveCell.Offset(1, 0).Select
Loop
Application.ScreenUpdating = True
End Sub

pero el problema de este código es que me limita el rango y yo requiero que sea para un rango dinámico, ya que la tabla puede variar el numero de filas y columnas

es para que me aplique para cualquier hoja del libro.

Gracias.