Try
Code:Option Explicit Sub kTest() Dim r As Range With Range("A9:m" & Range("a" & Rows.Count).End(xlUp).Row) .AutoFilter Field:=2, Criteria1:="<>T", Operator:=xlAnd, Criteria2:="<>v" On Error Resume Next Set r = .Cells(1).Offset(1).Resize(.Rows.Count - 1, 1).SpecialCells(12)'remove highlighted, if row 9 is not header If Not r Is Nothing Then r.EntireRow.Delete End If .AutoFilter End With End Sub




Reply With Quote
Bookmarks