Or like this
Code:
Sub jolivanes()
Dim lr As Long, lc As Long
Application.ScreenUpdating = False
lr = Cells(Rows.Count, 4).End(xlUp).Row
lc = Cells(1, Columns.Count).End(xlToLeft).Column
With Range(Cells(1, 1), Cells(lr, lc))
.AutoFilter 4, "<11"
.Range(.Cells(2, 1), .Cells(lr, lc)).SpecialCells(12).EntireRow.Delete
End With
ActiveSheet.AutoFilterMode = False
Application.ScreenUpdating = True
End Sub