Hi All
One more VBA newbie... Generated the code using macros...

I have a VBA Code

Sub Macro16()

Range("A1").Select
ActiveWorkbook.Worksheets("Sheet1").AutoFilter.Sort.SortFields. _
Clear
ActiveWorkbook.Worksheets("Sheet1").AutoFilter.Sort.SortFields. _
Add Key:=Range("H:H"), SortOn:=xlSortOnValues, Order:=xlAscending, _
DataOption:=xlSortNormal
With ActiveWorkbook.Worksheets("Sheet1").AutoFilter.Sort
.Header = xlYes
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With

'Need code here-------------Help required here......

ActiveSheet.AutoFilter.Range.Offset(1).SpecialCells(xlCellTypeVisible).Cells(1, 2).Select
ActiveCell.EntireRow.Select

Range(Selection, Selection.End(xlDown)).Select
Selection.Delete Shift:=xlUp
ActiveSheet.Range("$A$1:$U$100").AutoFilter Field:=8
Range("A1").Select

I have a list of people in Column H and I need to filter in column H in such a way that except person 4 , person 5, person 8 so on for 10 people rest of them should be selected so that my code can filter out other people mentioned and delete from excel sheet.

I can select who I want to filter that code ran well
but the problem who I dont want to filter because apparently we can select only 2 criteria at a time.

Thanks for the help in advance