Macro to delete filtered rows only doesn't work?

[tonywatsonhelp]

HI Everyone,

Not sure how I've gone wrong but I'm trying to delete all rows that are visible after I filter a row except the header but I'm having a nightmare

Can't see what I've done wrong, feel free to change as much as needed but please help

Thanks

Tony

My Code:

[FONT=Calibri][SIZE=3][COLOR=#000000]Sub Macro1()[/COLOR][/SIZE][/FONT]
[FONT=Calibri][SIZE=3][COLOR=#000000]Arch = "HS0001"[/COLOR][/SIZE][/FONT]

[FONT=Calibri][SIZE=3][COLOR=#000000]Sheets("Overview").Select[/COLOR][/SIZE][/FONT]
[FONT=Calibri][SIZE=3][COLOR=#000000]Arow = Sheets("Overview").Cells(Rows.Count,"H").End(xlUp).Row[/COLOR][/SIZE][/FONT]
[FONT=Calibri][SIZE=3][COLOR=#000000]If Arow < 2 Then[/COLOR][/SIZE][/FONT]
[FONT=Calibri][SIZE=3][COLOR=#000000]Arow = 2[/COLOR][/SIZE][/FONT]
[FONT=Calibri][SIZE=3][COLOR=#000000]End If[/COLOR][/SIZE][/FONT]

[FONT=Calibri][SIZE=3][COLOR=#000000]Sheets("Overview").Range("A1","BR" & Arow).AutoFilter Field:=11, Criteria1:=Arch[/COLOR][/SIZE][/FONT]

[FONT=Calibri][SIZE=3][COLOR=#000000]Sheets("Overview").Range("H2","H" & Arow ).SpecialCells(xlCellTypeVisible).EntireRow.Delete[/COLOR][/SIZE][/FONT]
[FONT=Calibri][SIZE=3][COLOR=#000000]ActiveSheet.ShowAllData[/COLOR][/SIZE][/FONT]


[FONT=Calibri][SIZE=3][COLOR=#000000]End Sub[/COLOR][/SIZE][/FONT]

 

[Peter_SSs]

The code appears to be working for me. What happens that makes you say that it is not working?

 

[MARK858]

Like Peter I can't see why your code wouldn't work but just out of interest what do you get with the code below replacing your filter/delete part?

With Sheets("Overview").Range("A1","BR" & Arow)
  .AutoFilter Field:=11, Criteria1:=Arch
  .Offset(1).Resize(.Rows.Count - 1).SpecialCells(xlCellTypeVisible).EntireRow.Delete
End With
ActiveSheet.ShowAllData

Obviously whatever the result still respond to Peter's question.