Test om celle er i Pivot og <> 0

Hej

Jeg har følgende kode som jeg brugere til at "filtrere" tomme linjer mellem en masse pivottabeller fra.

Sub TESTPIVOT()

    Dim cell As Range
   
        For Each cell In Range("F8:F100")
            If cell = xlPivotCellValue Then
                cell.Offset(0, 7) = 0
            Else
                cell.Offset(0, 7) = 1
            End If
        Next cell

End Sub

Mit problem er at jeg får værdi 0, på trods af at celler med 0 indgår i pivot? Har prøvet at sætte flere kriterier til, men uden held.
Nogen som kan hjælpe?