in that case use that code:

[VBA]
Sub Hidder()
Dim LRow, LCol, CBlanks, CHidden As Long
'This will check for last used row and column
LRow = ActiveSheet.Cells.SpecialCells(xlCellTypeLastCell).Row
LCol = ActiveSheet.Cells.SpecialCells(xlCellTypeLastCell).Column
For i = 1 To LRow
For j = 1 To LCol
If Cells(i, j).Value = "" And Columns(j).Hidden = False And _
Rows(i).Hidden = False Then
CBlanks = CBlanks + 1
End If
If Columns(j).Hidden = True Then
CHidden = CHidden + 1
End If
Next j
If LCol = CBlanks + CHidden Then
Rows(i).Hidden = True
End If
Next i
End Sub
[/VBA]