Hola:
Viendo tu ejemplo, comprobé que todas tienen fórmulas hasta la fila 83, entonces no será necesario buscar la última fila, solo colocá ese valor en la variable (fila).
Sub ocultaRango()
'macro desarrollada por Elsamatilde el 2/05/08
conta = 1
'se posiciona en la primer hoja a evaluar repitiendo el bucle hasta la hoja 13
Sheets("1").Select
While conta <= 13
'se guarda la última celda con fórmula o dato
fila = Range("B65536").End(xlUp).Row
' o fila = 83
'seleccionar rango
Range(Cells(fila, 2), Cells(fila - 30, 13)).Select
Set rgo = Selection
For Each celdita In rgo
If celdita.Value <> "" Then
MsgBox "no hay 30 vacías - no se elimina el rango"
Exit Sub
End If
Next celdita
'se oculta el rango
Selection.EntireRow.Hidden = True
conta = conta + 1
ActiveSheet.Next.Select
Wend
End Sub
Esto solo funcionará si las 13 hojas se encuentran continuas.
Saludos
Elsa
http://galeon.com/aplicaexcel