Sorting Filters for Zeros And delete The rows containing zeros

Hi All,

I used to use the below code when i am creating Pivot tables. After filtering my data, it has to create the pivot.

In the attached file , I have to delete 0's with positive and negative. I have applied the below VBA for filter. It is deleting my entire data and not giving the pivot when the data does not have zeros. If my data is having any zeros, It is working fine. I know that code going wrong in the Last one (used Range). I don't know What property i Have to use for not deleting all the data. Kindly advice.

Please Login or Register  to view this content.

Thanks In Advance

Hi Harry,
Thanks a lot for your support. May i know What does 7 mean in filter and what does 12 mean in specialcells.

Thanks Harry