VBA code of not selecting array

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

For Forum.xlsx

Hi
Thank you for the reply.

I have attached an Excel sheet that shows the Before and after data.
In column A the data is varying.
But Person 1,3,4,7,8 is constant.
And Column A is much more random in the sense it will not be in order.
I have shown it for just representation.

Thanks again
Hope to get the solution soon

Regards

Hi Holger

For code tags is this how we are supposed to do it?
-->

Please Login or Register  to view this content.

Is this close?

Hi Holger

Thank you very much that worked really well

I hope i can combine it with the rest of the code...

Regards
Pavan