intUltimaFila = _
 Columns("A:A").Range("A65536").End(xlUp).Row

intUltimaFila = _
 ActiveSheet.UsedRange.Row - 1 + ActiveSheet.UsedRange.Rows.Count

MaxRow = Cells.SpecialCells(xlLastCell).Row
MaxCol = Cells.SpecialCells(xlLastCell).Column

Dim lngUltimaCelda As Long
If WorksheetFunction.CountA(Cells) > 0 Then
 lngUltimaCelda = Cells.Find(What:="*", After:=[A1], _
  SearchOrder:=xlByRows, _
 SearchDirection:=xlPrevious).Row
 MsgBox lngUltimaCelda
End If

Dim intUltimaFila As Range

If WorksheetFunction.CountA(Columns(1)) > 0 Then
 Set intUltimaFila = Range("65536").End(xlUp)
 MsgBox intUltimaFila.Address
End If

intLastRow = Columns("A:A").Range("A65536").End(xlUp).Row
For r = intLastRow To 1 Step -1
 If Application.CountA(Rows(r)) = 0 Then Rows(r).Delete
Next r

Dim intNumDeFilas As Long

Selection.SpecialCells(xlCellTypeLastCell).Select
intNumDeFilas = Selection.Row
For i = 1 To intNumDeFilas
 If Application.WorksheetFunction.CountA(Rows(i)) = 0 Then
  Rows(i).Delete
 End If
Next

intUltimaFila = _
ActiveSheet.UsedRange.Row - 1 + ActiveSheet.UsedRange.Rows.Count
For r = intUltimaFila To 1 Step -1
If Application.CountA(Rows(r)) = 0 Then Rows(r).Delete
Next r

Dim rngString As Range

Do
 Set rngString = Cells.Find("Aglis", MatchCase:=False, _
  LookAt:=xlPart, LookIn:=xlValues)
 If Not rngString Is Nothing Then
  rngString.EntireRow.Delete
 End If
Loop Until rngString Is Nothing

For i = intUltimaFila To 1 Step -1
 Let strTest= Application.Cells(i, 2)
  If strTest <> "X" And strTest <> "Y" Then Rows(i).Delete
Next i