Filter Shows Blank Rows in Selection

Hello
i Have a problem. I want to delete all (blank) rows from my Excel Sheet. I have written the code like this.

With ActiveSheet
iLastRow = .Cells(.Rows.Count, "A").End(xlUp).Row

If (Sheets("PivotTable").Cells(iLastRow - 1, 1).Value = "(blank)") Then
    Sheets("PivotTable").Rows(iLastRow - 1).Hidden = True
End If

End With.

This Code does not shows blank rows at first time. but when i select any other value from filter it starts to show (blank)......

Pls help me to solbe this..........as its very urgent