Error Deleting the Rows Of A Filtered Range

[Ark68]

I am trying to delete the rows on a filtered worksheet with this code:

.Range("A:R").AdvancedFilter Action:=xlFilterInPlace, CriteriaRange:=ws_vhold.Range("A2:A3")
Set RngList = .Range("A1:R" & .Cells(Rows.Count, "A").End(xlUp).Row).SpecialCells(xlCellTypeVisible)
RngList.Resize(Rows.Count - 1).Offset(1).EntireRow.Delete Shift:=xlUp

I am gettin an "Application defined or object-defined error" with the line in red.

Is anyone able to provide a solution to resolve the error?

 

[Yongle]

Try replacing the last 2 lines with

Set rngList = .Range([COLOR=#ff0000]"A2:A"[/COLOR] & .Cells(Rows.Count, "A").End(xlUp).Row).SpecialCells(xlCellTypeVisible)
rngList.EntireRow.Delete

 

[Ark68]

Thank you Yongle. The solution was easier than anticipated.