As per our email communication, please test the following code and let me know if they work:
Sub RemoveGreaterThan3MPH()
'
' RemoveGreaterThan3MPH Macro
'
'
Dim ws As Worksheet
Dim rng As Range
Set ws = Sheets("Near Idle")
Set rng = ws.Range("A6").CurrentRegion
rng.AutoFilter Field:=7, Criteria1:=">3"
Range(rng.Range("A2"), rng.SpecialCells(xlCellTypeLastCell)).EntireRow.Delete
rng.AutoFilter
End Sub
Sub RemoveTPSMoreThan27()
'
' RemoveTPSMoreThan27 Macro
'
'
Dim ws As Worksheet
Dim rng As Range
Set ws = Sheets("Near Idle")
Set rng = ws.Range("A6").CurrentRegion
rng.AutoFilter Field:=6, Criteria1:=">2.7"
Range(rng.Range("A2"), rng.SpecialCells(xlCellTypeLastCell)).EntireRow.Delete
rng.AutoFilter
End Sub
Bookmarks