@ novice.
I am still learning so I'd be really interested in an explanation on why not to use "End(xlUp)"
BTW, if gbaker want to find the absolute last used cell (in any column), that's no problem.
@gbaker
This works on all sheets in your workbook.
If that's not what you want, let us know which sheets to exclude.
Good luck.
Code:
Sub jolivanes()
Dim lr As Long, lc As Long, sh As Worksheet
Application.ScreenUpdating = False
For Each sh In ActiveWorkbook.Sheets
With sh
lr = .Cells(.Rows.Count, 4).End(xlUp).Row
lc = .Cells(1, .Columns.Count).End(xlToLeft).Column
.Range(.Cells(1, 1), .Cells(lr, lc)).AutoFilter 4, "<11"
.Range(.Cells(2, 1), .Cells(lr, lc)).SpecialCells(12).EntireRow.Delete
End With
sh.AutoFilterMode = False
Next sh
Application.ScreenUpdating = True
End Sub