Error 91 Excel VBA Contar Valores Filtrados

Espero se encuentren muy bien quisiera pedirles de favor su apoyo para un problema que no he podido resolver, lo que sucede es que me sale el error 91: variable de objeto o bloque with no establecido, la verdad estuve tratando de diferentes formas pero no encuentro que puede ser el error, les dejo el código, gracias de antemano.

Lo que se supone que debe hacer es primero filtrar para quitar todos los espacios en blanco y luego contar el número de datos que quedan.

Sub Pruebas2()

Sheets("Punto Venta R").Select

Worksheets("Punto Venta R").ListObjects("Tabla_PuntVtaR").Range.AutoFilter _
Field:=1, Criteria1:="<>"

Dim Cont As Long
Cont = Worksheets("Punto Venta R").AutoFilter.Range.Columns(1).SpecialCells(xlCellTypeVisible).Count - 1
MsgBox Cont

End Sub