Oh, I didn't know the Application.Volatile mehod! I just put this line
at the begining of my function and it works even when deleteing rows by
VBA code!

On Error Resume Next
If rng.Rows(1).Hidden < rng.Rows(1).Hidden Then Application.Volatile
(True)

Thank you!