Ocultar filas

Hola, antes de nada agradecerte tu interés. Tengo una hoja excel en la que para mejorar el aspecto, necesito una macro que me oculte las lineas en las que la primera casilla esté en blanco entre la 12 y la 23. Lo intentado modificando la macro de abajo que las borraba, pero no me funciona. ¿Me podrías ayudar? Gracias
Sub LimpiarLineaSobrantes()
    Application.ScreenUpdating = False
    Range("A14").Select
    For i = 14 To 23
    If ActiveCell = "0" Or IsNull(ActiveCell) Then
    celda = ActiveCell.Address
    Selection.EntireRow.Delete
    If ActiveCell.Row <> 1 Then Range(celda).Offset(-1, 0).Select
    End If
    ActiveCell.Offset(1, 0).Select
    Next
    Application.ScreenUpdating = True
End Sub
Sub LimpiarLineaSobrantes()    Application.ScreenUpdating = False    Range("A14").Select    For i = 14 To 23    If ActiveCell = "0" Or IsNull(ActiveCell) Then    celda = ActiveCell.Address    Selection.EntireRow.Delete    If ActiveCell.Row <> 1 Then Range(celda).Offset(-1, 0).Select    End If    ActiveCell.Offset(1, 0).Select    Next    Application.ScreenUpdating = TrueEnd Sub