What is wrong with this macro?

Hi Guys!

I have this macro and get always the result in "A20" of 1 althought TPH = 10 and BPH = 10
Why do I not get 2?

Thanks a lot

Detlef

If TPH > 0 And BPH > 0 Then
    .Range("A20").Value = 2
    .Range("B20").Value = LDW
    .Range("C20").Value = 90
    .Range("D20").Value = 90
End If
    
If TPH > 0 Or BPH > 0 Then
    .Range("A20").Value = 1
    .Range("B20").Value = LDW
    .Range("C20").Value = 90
    .Range("D20").Value = 90
End If