Search Information On Pivot Table And Copy Value In Cells With Offset

I'm using a code to search some information in a pivot table and copy the value in the cells with offset(0,1) and is very very slow, I tryed another method with the using of Find but isn't working: error message: missing object in the with cycle.

Here is the working code:

Dim DataFine, DataInizio, UltimaRiga, Gg As Date
Dim NomeMacchina, Plant As String
Dim Cl As Object
Dim Pr As String
Application.ScreenUpdating = False

[Code] .......

Here is the code who doesn't work

For i = 6 To 500
Giorno = Sheets("OEE03").Cells(i, 2)
With Sheets("01")
Pr = Range("A5:A500").Find(Giorno).Offset(0, 1).Value
Sheets("OEE03").Cells(i, 9).Value = Pr
End With
Next

if I use this code on a normal sheet it works but when I try to use it on a Pivot table fields give me always the error message.