Sub DeleteRows()
Dim lr As Long
Application.ScreenUpdating = False
lr = ActiveSheet.UsedRange.Rows.Count
With Range("W1:W" & lr)
.AutoFilter field:=1, Criteria1:="<>*Linux; Android 6.0.1;*"
If Range("W2:W" & lr).SpecialCells(xlCellTypeVisible).Cells.Count > 1 Then
Range("W2:W" & lr).SpecialCells(xlCellTypeVisible).EntireRow.Delete
End If
.AutoFilter
End With
Application.ScreenUpdating = True
End Sub
Sub DeleteRows()
Dim lr As Long
Application.ScreenUpdating = False
lr = ActiveSheet.UsedRange.Rows.Count
With Range("W1:W" & lr)
.AutoFilter field:=1, Criteria1:="<>*Linux; Android 6.0.1;*"
If Range("W1:W" & lr).SpecialCells(xlCellTypeVisible).Cells.Count > 1 Then
Range("W2:W" & lr).SpecialCells(xlCellTypeVisible).EntireRow.Delete
End If
ActiveSheet.ShowAllData
End With
Application.ScreenUpdating = True
End Sub
Open in new window